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SEQ 0003 


1.0 INTRODUCTION 
1.1 ABSTRACT 

THE tg ¥? DISKLESS DIAGNOSTIC IS A STAND ALONE PROGRAM WHICH USES 

UNCTIONAL AND DIAGNOSTIC MEANS TO VERIFY THE OPERABILITY OF THE RMOS/3/2 

DISK SUBSYSTEM EXCLUDING AND INDEPENDENTLY OF THE STORAGE MODULE 
DRIVE. IN PARTICULAR, THE PROGRAM SERVES THE FOLLOWING PURPOSES: 

TO DETECT ERRORS AND FAULTS IN THE RH MASSBUS CONTROLLER; 

TO DETECT ERRORS AND FAULTS IN THE RM MASSBUS ADAPTER; 


TO RESOLVE HARDWARE FAILURES IN THE RH/RM TO A FIELD 
REPLACEABLE MODULE OR MODULES. 


1.2 UNIT UNDER TEST 


THE UNIT UNDER TEST (UUT) IS THE RMO5/3/2 DISK SUBSYSTEM, EXCLUDING 
THE STORAGE MODULE DISK DRIVE AND THE RH11 OR RH70 MASSBUS CONTROLLER. 


2.0 OPERATING REQUIREMENTS 
2.1 HARDWARE REQUIREMENTS 

THE FOLLOWING MINIMUM HARDWARE CONFIGURATION, ASSUMED TO BE 
OPERATIONAL, IS REQUIRED TO LOAD AND EXECUTE THE RMO5/3/2 DISKLESS 
DIAGNOSTIC: 

PDP-11 PROCESSOR 

24K MEMORY 
KW11-L_ OR KW11-P CLOCK 
PROGRAM LOADING DEVICE 


TERMINAL 
RH11 OR RH70 CONTROLLER 
1 TO 8 DISK DRIVES (ANY COMBINATION OF RMOS5'S, RMO3'S OR RMO2'S) 


2.2 MEDIA REQUIREMENTS 
NONE 


2.3 PREREQUISITE DIAGNOSTIC PROGRAMS 
NONE 


3.0 OPERATING PROCEDURE 


C2 
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3.1 LOADING 


THE PROGRAM MAY BE LOADED BY EITHER PAPER TAPE, USING THE 
STANDARD PAPER TAPE LOADING PROCEDURE, OR XXDP MEDIA, USING THE 
APPROPRIATE LOADING DEVICE. 


3.2 SWITCH OPTIONS 


THE FOLLOWING SWITCH OPTIONS ARE INVOKED WHEN THE APPROPRIATE 
SWITCH IS ON. 


SwW15 HALT ON ERROR 
SwW14 LOOP ON TEST (CURRENTLY BEING EXECUTED) 
Sw13 INHIBIT ERROR TYPEOUTS 


Swi2 UNUSED 

SwW11 INHIBIT 4 ITERATIONS 
Swi0 BELL ON ERR 

SwO9 LOOP ON ERR 


OR 
Sw08 LOOP ON TEST IN SWO07-00 


THE LOW ORDER 8 SWITCHES ARE USED IN CONJUNCTION WITH SWO8 TO SPECIFY 
A PARTICULAR TEST WHICH THE PROGRAM WILL LOOP ON. 


3.3 STARTING PROGRAM 
PROGRAM STARTS AT LOCATION 200 WHICH USES DEFAULT VALUES OF 


THE 
ge Tg AND PROVIDES MAXIMUM TESTING WITH THE SWITCH REGISTER EQUAL 


4.0 OPERATOR INTERFACE 
4.1 PROGRAM ID 


THE PROGRAM TYPES ITS NAME AND MAINDEC NUMBER THE FIRST TIME IT 
IS STARTED AFTER BEING LOADED. 


4.2 PROGRESS REPORTS 


AN END OF PASS REPORT OCCURRS EACH TIME THE PROGRAM IS EXECUTED 
FOR ALL ADAPTERS IN THE TEST QUE. THE END OF PASS REPORT INCLUDES A 
MESSAGE AND AN ERROR SUMMARY. 


4.3 PERFORMANCE REPORT 
_ NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 
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4.4 PROGRAM HALTS 


THERE ARE NO SCHEDULED HALTS DURING ay EXECUTION OF THE PROGRAM. 
PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER 


4.5 ERROR REPORTS 
E RM05/3/2 hae i DIAGNOSTIC PROVIDES COMPREHENSIVE ERROR 
REPORTS INTENDED TO (1) AID IN FAULT RESOLUTION AND (2) MINIMIZE 
REFERENCES TO PROGRAM LISTINGS. 
THE FIRST LINE OF THE ERROR REPORT CONTAINS THE aa NUMBER BEING 
ie eet DRIVE TYPE, THE TEST NUMBER, THE ERROR NUMBER AND THE VALUE OF 
THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED. THIS LINE IS FOLLOWED 
BY THE ERROR MESSAGE: RAL S OF 
COMPREHENSIVE DESCRIPTION OF THE ERROR, AND A LIST OF FAILING MODULES 
IN ++ a4 DECREASING PROBABILITY. THE ERROR MESSAGE IS NORMALLY 
FOLLOWED BY ONE OR MORE PAIRS OF seme CONTAINING DATA HEADERS AND 


RESULTS. 


5.0 ENVIRONMENTAL SUPPORT 
5.1 PROCESSOR COMPATIBILITY 


THE RMO5/3/2 DISKLESS DIAGNOSTIC IS EXECUTABLE ON ANY PDP-11 
— PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE 


5.2 DUAL PORT CONF IGURATIONS 
THE RMO5/3/2_ DISKLESS DIAGNOSTIC IS NOT EXECUTABLE ON RMOS/3/2 
SUBSYSTEMS HAVING THE DUAL PORT OPTION UNLESS THE DUAL PORT awh 


IS SET TO THE APPROPRIATE PORT (A OR B) AND NOT TO THE PR 
POSITION (A/B). 


5.3 MEMORY PARITY HARDWARE 


Y PARITY HARDWARE WILL NOT BE USED DURING THE EXECUTION OF 
THE RMOS7 3/2 DISKLESS DIAGNGOSTIC. 


5.4 MEMORY MANAGEMENT HARDWARE 
MEMORY MANAGEMENT HARDWARE WILL NOT BE USED DURING THE RMO5/3/2 


SEQ 0005 
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DISKLESS DIAGNOSTIC. 


5.5 ACT11, APT11 COMPATIBILITY 
THE ae ote DISKLESS DIAGNOSTIC PROGRAM IS a hak WITH ACT11 
THE PROGRAM 


AND APT11 _IN BOTH DUMP AND AUTOMATIC MODES. FURTHER, WILL 
3 ah A QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK VERIFY 


5.6 XXDP COMPATIBILITY 


THE ony th DISKLESS DIAGNOSTIC PROGRAM IS COMPATIBLE WITH XXDP 
IN DUMP AND CHAIN MODES. 


5.7 OPERATING SYSTEM COMPATIBILITY 


be ween” PROGRAM IS NOT REQUIRED TO BE COMPATIBLE WITH ANY OPERATING 


6.0 TEST DESCRIPTION 


THE PROGRAM IS DESIGNED IN A BOTTOM UP MANNER SUCH THAT EACH TEST 
5 meatal USES A MORE COMPLEX SUBSET OF HARDWARE THAN THE PREVIOUS 


MODULE CALLOUT IS PREDICATED ON THE ASSUMPTION THAT EARLIER TESTS 
HAVE BEEN COMPLETED WITHOUT ERROR AND THAT ERRORS ARE DUE TO SINGLE, 
NONTRANSIENT HARDWARE FAILURES. 


THE —*'RMO5/3/2 DISKLES DIAGNOSTIC’’ CAN BE EXECUTED USING AN RH70 
OR AN RH11 MASSBUS CONTROLLER. 


UNLESS SPECIFIED BY THE OPERATOR OR BY THE ENVIRONMENT TABLE THE 
TEST IS REPEATED FOR EACH POSSIBLE DEVICE STARTING WITH DEVICE 0. 


THE MODULES WHICH MAY BE CALLED OUT DURING THE EXECUTION OF THE 
TEST ARE AS FOLLOWS: 


IF 
CS 


DS 
MASSBUS MODULE 


THE RADIAL MODULE (RD) IS NOT TESTED BY THIS PROGRAM. 
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TRANSFER TEST 


CTOD 


d 


PURPOSE : 

TO VERIFY THAT THE RMOS/3/2 CAN COMPLETE A REGISTER TRANSFER 
ON THE MASSBUS, AND, IN PARTICULAR, TO VERIFY THAT ‘‘TRANSFER'’ IS 
NOT STUCK IN AN INACTIVE STATE. 

PROCEDURE : 

THE PROGRAM WRITES AND READS REMOTE iaity FOR THE 
SELECTED we vet REGISTER CONTENTS AND PARITY ERRORS ARE 
IGNORED, AND THE TEST FAILS IF A ‘NONEXISTENT DEVICE ERROR'’ 
BUS TIMEOUT OCCURRS FOR EVERY REGISTER ACCESS. IF THE TEST FAILS 
THE PR JUMPS TO THE END OF PASS HANDLER WHICH SELECTS THE 
NEXT DEVICE TO BE TESTED. 

PROBABLE FAULT: 

THE TEST ine ge IF THE SELECTED DEVICE IS oe 'g Hh a OR IS 
SWITCHED TO THE PROGRAMMABLE POSITION OR TO THE ALTERNATE PORT. 
THE FOLLOWING FAULTS ARE APPLICABLE ONLY WHEN THE DEVICE IS 
PRESENT AND IS SWITCHED TO THE APPROPRIATE PORT. 

1. IF MODULE 
2. ASYNCHRONOUS MASSBUS MODULE 


3. CS MODULE 


TEST 
PURPOSE : 

TO. VERIFY THAT DATA CAN BE_ TRANSFERRED TO AND FROM THE 
RMO5/3/2 USING THE CONTROL BUS AND, IN PARTICULAR, TO VERIFY THAT 
"CONTROLLER TO DEVICE'' HAS NOT FAILED. 

PROCEDURE : 

THE TEST WRITES ONES IN REMOTE REGISTERS THEN READS EACH 

REGISTER WHICH WILL WRITE ZEROS IN THE REGISTER IF ‘‘IF3 CTOD HOLD 
H"' IS STUCK AT ONE. THE TEST THEN READS AS MANY REMOTE REGISTERS 
AS ARE NECESSARY TO OBTAIN ONE OR MORE ONE BITS. 

PROBABLE FAULT: 

1. IF MODULE 


2. ASYNCHRONOUS MASSBUS MODULE 
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SEQ 0008 


286 

287 

See MASSBUS INITIALIZE TEST 

sO PURPOSE : 

292 TO VERIFY THAT THE MASSBUS ADAPTER IS BEING INITIALIZED BY 
293 THE MASS BUS. 

2% 

344 PROCEDURE : 

297 USING CONTROLLER CLEAR TO INITIALIZE THE SELECTED UNIT, THIS 
298 TEST THEN READS MASSBUS ADAPTER REGISTERS TO VERIFY THAT AT LEAST 
299 ONE BIT IS CLEARED. MASSBUS ADAPTER REGISTERS ARE PRESET TO A 
or NON ZERO VALUE PRIOR TO CONTROLLER CLEAR. 

OS PROBABLE FAULT: 

soe 1. ASYNCHRONOUS MASSBUS MODULE 

306 2. IF MODULE 

307 

308 3. CS MODULE 

309 


CLEAR STUCK ACTIVE TEST 


WNWWAWNAAAG 
ak ca aed ed a cd ed ced ed 
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PURPOSE : 

TO VERIFY THAT ‘MBA CLR L'' ON THE CS MODULE IS NOT STUCK IN 
a AN ACTIVE STATE. 
$5) PROCEDURE : 
323 ; CONTROLLER CLEAR IS USED TO INITIALIZE THE SELECTED UNIT, 
324 AFTER WHICH 1°S ARE WRITTEN IN ERROR REGISTERS 1 AND 2 AND 
325 MAINTENANCE REGISTER 1. IF ANY 1 BITS CAN BE READ BACK THE TEST 
358 IS OK, ELSE, ‘MBA CLR L'’ IS PROBABLY STUCK ACTIVE. 
355 PROBABLE FAULT: 
330 1. CS MODULE 
331 
$35 ’ 2. IF MODULE 
$e 3. ASYNCHRONOUS MASSBUS MODULE 
336 
337 . 
338 
339 
re TRISTATE TRANSFER TEST 


342 PURPOSE : 
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SEQ 0009 


343 

344 TO VERIFY THAT THE PATH TO AND FROM THE MASSBUS ADAPTER 

345 TRI-STATE REGISTER BUS IS NOT STUCK AT ONE OR ZERO AND THAT EACH 

“9 BIT POSITION IS INDEPENDENT. 

5 PROCEDURE : 

350 THIS TEST PRESETS MASSBUS ADAPTER REGISTERS TO A NONZERO 

351 VALUE, THEN, ASSUMING THE REGISTERS ARE PRESET, IT CLEARS THEM 

352 USING A MOVE INSTRUCTION. THE TEST THEN READS AS MANY REGISTERS 

353 AS_IS_ NECESSARY TO OBTAIN ONE OR MORE ZEROS FROM EACH BIT 

$2¢ POSITION. 

356 THE TEST CLEARS MASSBUS ADAPTER me SA ay THEN, ASSUMING 

357 THE REGISTERS ARE CLEARED, IT LOADS THEM WITH ONES AND READS AS 

358 MANY REGISTERS AS IS NECESSARY TO OBTAIN ONE OR MORE ONE BITS IN 
; 44 EACH BIT POSITION. 

361 FINALLY, THE TEST WRITES A SINGLE ONE BIT PATTERN IN BIT O 

362 OF SELECTED REMOTE REGISTERS AND VERIFIES THAT THE PATTERN CAN BE 

363 READ BACK. E ONE BIT IS SHIFTED AND THE TEST REPEATED FOR ALL 

we BIT POSITIONS. 

4] PROBABLE FAULT: 

— 1. ASYNCHRONOUS MASSBUS MODULE 

370 2. IF MODULE 

371 

372 3. CS MODULE 

373 

374 4. DS MODULE 

375 

376 

377 

378 

379 

34 REGISTER SELECT TEST 

ae PURPOSE : 

384 TO VERIFY THAT THE REGISTER SELECT LINES ARE NOT IN A_ STUCK 

385 POSITION. 

386 

4 PROCEDURE : 

389 EACH REGISTER SELECT LINE IS peste’ BY WRITING ZEROS IN 

390 THOSE DEVICE gets ERS FOR WHICH THE LINE MUST BE ZERO, THEN 

391 r WRITING “ae IN THOSE DEVICE REGISTERS FOR WHICH THE LINE MUST BE 

392 ) ONE. THE 7ERO. REGISTER IS READ BACK AND IF THE SELECT LINE IS 

393 STUCK AT ZERO, THE ZERO REGISTER mit CONTAIN ONES. THE PROCESS 

394 1S REPEATED TO DETECT A STUCK AT ONE FAULT, EXCEPT IN THIS CASE, 

4 THE ONES REGISTER IS WRITTEN FIRST. 

397 REGISTER SELECT LINES 1, 2, 4 AND 8 ARE TESTED IN THIS 


$90 MANNER: SELECT LINE 16 IS EXPLICITLY TESTED IN THE "‘ILR TEST'’. 
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PROBABLE FAULT: 
1. IF MODULE 
2. ASYNCHRONOUS MASSBUS MODULE 


DRIVE TYPE TEST 
PURPOSE : 
TO TEST THE ‘DRIVE TYPE'’ REGISTER, RMDT. 
PROCEDURE : 


THE PROGRAM READS RMDT AND VERIFIES THAT THE RESULT 
CORRESPONDS TO A SINGLE OR DUAL PORT RMOS, RMO3 OR RMO2 DRIVE. 


PROBABLE FAULT: 
1. IF MODULE 


DEVICE AVAILABLE TEST 
PURPOSE : 
TO VERIFY THAT DEVICE AVAILABLE STATUS IS SET. 
PROCEDURE : 
THE PROGRAM TESTS ‘DVA’', BIT 11 OF RMCS1. 
PROBABLE FAULT: 
1. IF MODULE 


HOLDING REGISTER TRANSFER TEST 
PURPOSE : 


TO VERIFY THAT THE HOLDING REGISTER IS NOT STUCK AT ONE, 
STUCK AT ZERO, AND THAT THERE IS NO BIT INTERFERENCE. 


PROCEDURE : 
THE PROGRAM TRANSFERS ONES, THEN ZEROS TO THE HOLDING 


SEQ 0010 | 
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SEQ 0011 | 
37 : REGISTER AND VERIFIES THAT NONE OF THE BITS ARE STUCK AT ONE. 
459 THE PROGRAM TRANSFERS ZEROS, THEN ONES TO THE HOLDING 
460 REGISTER AND VERIFIES THAT NONE OF THE BITS ARE STUCK AT ZERO. 
462 FINALLY, THE TEST TRANSFERS A SHIFTING ONE BIT PATTERN AND 
463 VERIFIES THAT EACH BIT IS INDEPENDENT. 
65 PROBABLE FAULT: 
466 
467 1. IF MODULE 
468 
469 
470 
471 
472 
<7 CONTROL STATUS #1 TRANSFER TEST 
475 PURPOSE : 
477 TO VERIFY THAT BITS 01 THROUGH 05 OF CONTROL STATUS REGISTER 
478 1 ARE NOT STUCK AT ONE OR ZERO, AND THAT THERE IS NOT BIT 
479 INTERFERENCE. 
480 
481 PROCEDURE : 
483 THIS TEST WRITES ONES IN CONTROL STATUS REGISTER 1, RMCS1, 
484 THEN WRITES ZEROS AND VERIFIES THAT THE BITS ARE NOT STUCK AT 
as ONE. THE GO BIT IS NOT TESTED IN THIS TEST. 
487 NEXT, THE TEST CLEARS THE CONTROL STATUS REGISTER, RMCS1, 
488 WRITES ONES IN BITS 01 THROUGH 05 AND VERIFIES THAT THE BITS ARE 
“89 NOT STUCK AT ZERO. THE GO BIT IS NOT TESTED. 
491 THE TEST TRANSFERS A SHIFTING ONE BIT DATA PATTERN TO AND 
492 FROM RMCS1 AND CHECKS FOR ADJACENT BIT INTERFERENCE. 
49% PROBABLE FAULT: 
496 1. IF MODULE 
497 
498 
499 
500 
501 
202 ERROR REGISTER #1 TRANSFER TEST 
504 PURPOSE : 


TO VERIFY THAT ERROR REGISTER 1 IS NOT STUCK AT ONE OR ZERO, 
AND THAT THERE IS NOT BIT INTERFERENCE. 


PROCEDURE : 
THIS TEST WRITES ONES IN ERROR REGISTER 1, RMER1, 


THEN 
WRITES ZEROS AND VERIFIES THAT THE REGISTER IS NOT STUCK AT ONE. 
"UNSAFE" IS NOT TESTED DURING THIS TEST. IN ORDER TO LIMIT THE 
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PROBABLE FAULTS TO ONE OR TWO MODULES, THE TEST IS EXECUTED IN 3 


PARTS WITH EACH PART TESTING THOSE BITS WHOSE PRESET FUNCTIONS 
ARE DERIVED FROM THE SAME MODULE. 


THE TEST WRITES ZEROS IN ERROR REGISTER 1, RMER1, THEN 
WRITES ONES AND VERIFIES THAT THE REGISTER IS NOT STUCK AT ZERO. 


FINALLY, THE TEST WRITES A SHIFTING ONE BIT PATTERN IN RMER1 
AND CHECKS FOR ADJACENT BIT INTERFERENCE. 


PROBABLE FAULT: 


1. IF MODULE 
2. CS MODULE 
3. DS MODULE ~ 


CLEAR OFFSET STUCK ACTIVE TEST 


PURPOSE : 


TO VERIFY THAT THE SIGNAL WHICH CLEARS OFFSET MODE IS NOT 
STUCK IN ACTIVE STATE. 


PROCEDURE : 


THE TEST WRITES A ONE IN THE OFFSET DIRECTION BIT WHICH IS 
CLEARED BY THE SIGNAL AND VERIFIES THAT A ONE CAN BE READ BACK. 


PROBABLE FAULT: 
1. IF MODULE 
2. DS MODULE 


OFFSET REGISTER TRANSFER TEST 


PURPOSE : 


TO_VERIFY THAT THE OFFSET REGISTER IS NOT STUCK ONE , 
STUCK AT ZERO, AND THAT THERE IS NO ADJACENT BIT INTERFERENCE. 


PROCEDURE : 


THE OFFSET REGISTER, RMOF, IS WRITTEN WITH ONES, THEN 
leg I day ZEROS AND READ TO’ VERIFY THAT NONE OF THE BITS ARE 


SEQ 0012 
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THEN THE OFFSET REGISTER IS WRITTEN WITH ZEROS AND WRITTEN 
WITH ONES TO VERIFY THAT THE REGISTER IS NOT STUCK AT ZERO. 


FINALLY, THE OFFSET REGISTER IS TESTED WITH A SHIFTING ONE 
BIT PATTERN. 


PROBABLE FAULT: 
1. IF MODULE 


ERROR REGISTER #2 TRANSFER TEST: 


PURPOSE : 


TO VERIFY THAT ERROR REGISTER 2, RMER2, IS NOT STUCK AT 
ONE, STUCK AT ZERO, AND THAT THERE IS NOT BIT INTERFERENCE. 


PROCEDURE : 


THE TEST WRITES ONES THEN oly ZEROS IN. vex, AND VERIFIES 
THAT NONE OF THE BITS ARE STUCK AT ONE. ‘‘SkI'' “DVC** ARE NOT 
TESTED. IN ORDER TO LIMIT THE NUMBER OF PROBABLE F FAULTS TO ONE 
OR TWO MODULES, THE TEST IS EXECUTED IN 3 PARTS WITH EACH PART 
thee My BITS WHOSE PRESET FUNCTIONS ARE DERIVED FROM THE 


THEN THE TEST WRITES ZEROS IN ERROR REGISTER 2, AND WRITES 
ONES VERIFYING THAT THE REGISTER IS NOT STUCK AT ZERO. 


FINALLY, THE TEST WRITES A SHIFTING ONE BIT PATTERN IN THE 
REGISTER AND VERIFIES THAT ALL BIT POSITIONS ARE INDEPENDENT. 


PROBABLE FAULT: 


1. IF MODULE 
2. CS MODULE 
3. DS MODULE 


SERIAL NUMBER TEST 


PURPOSE : - 
TO VERIFY THAT THE SERIAL NUMBER CAN BE READ. 
PROCEDURE : 





SEQ 0015 
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THE TEST READS THE SERIAL NUMBER aan tine SEVERAL TIMES AND 
VERIFIES THAT THE NUMBER IS THE SAME EACH TIME. 


PROBABLE FAULT: 
1. CS MODULE 


CONTROL BUS PARITY DETECTION TEST 


PURPOSE : 


TO TEST THE RMOS/3/2'S PARITY CHECKING LOGIC FOR THE MASSBUS 
ASYNCHRONOUS CONTROL BUS. 


PROCEDURE : 


BIT. ‘PAR"’ STATUS, BIT 03 OF RMER1, IS CHECKED AFTER EACH 
PATTERN IS __TRANSFERRED..NOTE THE FOLLOWING TABLE SHOWS A SET OF 
Ht ig THAT COULD BE USED INSTEAD OF A SHIFTING ONE BIT 


DATA PATTERN PAT PAR 


-—-OoO0— 
-—-oO0o— 


075266 

163753 

116535 
PROBABLE FAULT: 
1. IF MODULE 


2. ASSYNCHRONOUS MASSBUS MODULE 


CONTROL BUS PARITY GENERATION TEST 


PURPOSE : 


TO TEST THE RMO5S/3/2'S PARITY GENERATING LOGIC FOR THE 
MASSBUS ASYNCHRONOUS CONTROL BUS. 


PROCEDURE : 


THE TEST TRANSFERS A SHIFTING ONE B’* DATA PATTERN TO THE 
DISK ADDRESS REGISTER. AFTER EACH PATTE! IS READ BACK, ‘MASSBUS 
CONTROL BUS PARITY ERROR'’ IS TESTED AND SHOULD BE ZERO..NOTE THE 
FOLLOWING SET OF TEST PATTERNS COULD BE USED INSTEAD OF THE 


SEQ 0014 
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SHIFTING ONE BIT PATTERN. 


DATA PATTERN MCPE 
00 0 

056747 0 

135672 0 

163135 0 

PROBABLE FAULT: 

1. IF MODULE 


2. ASYNCHRONOUS MASSBUS MODULE 


RMDA, RMDC FAULT TEST 


PURPOSE : 
TO VERIFY THAT THERE ARE NOT FAULTS WHICH INHIBIT THE 
FROM WRITING RMDC AND RMDA. SPECIFICALLY, iHESE FAULTS 

INCLUDE : 
"GO H’* STUCK HIGH, WHICH WOULD INHIBIT THE REGISTER LOAD 

FUNCTION, 


~RIP L** STUCK LOW, WHICH WOULD CONSTANTLY CLEAR THE 
REGISTER 


- EBL*’ STUCK, WHICH WOULD INHIBIT THE CLOCK FUNCTION. 
PROCEDURE : 
THE TEST WRITES AND READS BOTH RMDC, AND RMDA. WITH ZEROS, 


THEN ONES. THE TEST PASSES IF EITHER REGISTER CAN BE WRITTEN 
WITH ONES. 


PROBABLE FAULT: 
1. DS MODULE 
2. IF MODULE 
3. CS MODULE 


DISK ADDRESS TRANSFER TEST 


PURPOSE : 


SEQ 0015 
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TO VERIFY THAT THE DISK ADDRESS REGISTER IS NOT STUCK AT ONE 
ZERO, AND THAT THERE IS NOT BIT INTERFERENCE. 


PROCEDURE : 


THIS TEST PRESETS THE DISK ADDRESS TO A NONZERO VALUE, THEN 
USES A MOVE TO CLEAR THE REGISTER. THE fo THEN READS RMDA AND 
VERIFIES THAT NONE OF THE BITS ARE STUCK AT ONE. 


THEN THE TEST PRECLEARS THE MASSBUS ADAPTER DISK ADDRESS 
REGISTER (RMDA), LOADS IT TO ALL ONES, AND VERIFIES THAT NONE OF 
THE BITS ARE STUCK AT ZERO. 


A SHIFTING ONE BIT PATTERN IS TRANSFERRED TO AND FROM THE 
DISK ADDRESS REGISTER, RMDA, AND THE TEST VERIFIES THAT EACH BIT 
IS INDEPENDENT. 


PROBABLE FAULT: 
1. DS MODULE 
2. IF MODULE 


DESIRED CYLINDER TRANSFER TEST 


PURPOSE : 


TO VERIFY THAT THE DESIRED CYLINDER ADDRESS REGISTER, RMDC, 
IS_ NOT STUCK AT ONE OR ZERO, AND THAT THERE IS NOT BIT 
INTERFERENCE. 


PROCEDURE : 


THIS TEST WRITES ONES IN THE DESIRED CYLINDER REGISTER RMDC, 
ty WRITES ZEROS AND VERIFIES THAT THE REGISTER IS NOT STUCK AT 


THEN THE TEST WRITES ZEROS IN THE DESIRED CYLINDER REGISTER, 
pas WRITES ONES AND VERIFIES THAT THE REGISTER IS NOT STUCK AT 


FINALLY, A SHIFTING 1 BIT PATTERN IS TRANSFERRED TO AND FROM 
RMDC AND THE PROGRAM CHECKS FOR BIT INTERFERENCE. 


PROBABLE FAULT: 
1. DS MODULE 
2. IF MODULE 


SEQ 0016 


ILLEGAL REGISTER TEST 
PURPOSE : 
TO TEST ILLEGAL REGISTER ERROR DETECTION IN THE RMO5S/3/2. 
PROCEDURE : 
THIS TEST READS ALL LEGAL REGISTERS AND VERIFIES THAT ‘‘ILR’'’, 


aH 2 OF RMER1 DOES NOT SET. THEN, TO THE EXTENT ALLOWED BY THE 
MASSBUS —_— IT READS ILLEGAL REGISTERS AND VERIFIES THAT 


mts hE teh tet Sth: 


| : 2 
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“ILR'' IS SET 
812 
813 PROBABLE FAULT: 
815 1. IF MODULE 
817 2. ASSYNCHRONOUS MASSBUS MODULE 
819 
820 
821 
822 
823 RESET GO BY INIT TEST 
+H PURPOSE : 
827 TO VERIFY THAT GO CAN BE RESET BY INITIALIZE. 
829 PROCEDURE : 
831 THE TEST SETS GO THEN CLEARS GO USING MASSBUS INITIALIZE, 
B30 1.£., CONTROLLER CLEAR. 
834 PROBABLE FAULT: 
836 1. CS MODULE 
837 
838 2. IF MODULE 
839 
840 
841 
842 
843 
Bee DIAGNOSTIC MODE TEST 
PURPOSE : 


TO_ VERIFY THAT ‘DIAGNOSTIC MODE'', BIT 0 OF RMMR1, IS NOT 
STUCK AT ONE OR ZERO. 


PROCEDURE : 
THE RMOS/3/2 im INITIALIZED AND ‘DMD'’ IS CHECKED FOR ZERO. 
"'DMD'' IS WRITTEN WITH ONE AND READ TO VERIFY THAT IT IS NOT STUCK 


AT ZERO, THEN ORI TTEN WITH ZERO AND READ TO VERIFY THAT IT IS NOT 
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STUCK AT ONE. 
PROBABLE FAULT: 
1. CS MODULE 
2. IF MODULE 


MOL TEST 


PURPOSE : 


TO VERIFY THAT ‘MEDIUM ON LINE’’ STATUS CAN BE SET AND RESET 
USING MAINTENANCE UNIT READY. 


PROCEDURE : 

AFTER peg ow THE SUBSYSTEM, THE TEST SETS ‘DIAGNOSTIC 
MODE: AND READS THE DRIVE STATUS REGISTER 7, MDS, EXPECTING MOL, 
BIT 12 TO BE ZERO. ‘MAINTENANCE UNIT READY’', BIT 9 OF RMMRI, IS 
SET AND MOL SHOULD BE ONE. THE TEST THEN “WRITES A ZERO IN MUR 
AND READS RMDS, VERIFYING THAT ‘MEDIUM ON LINE*’ IS ZERO. 

PROBABLE FAULT: 
1. CS MODULE 


2. IF MODULE 


WRITE LOCK TEST 


PURPOSE : 


TO VERIFY THAT ‘WRITE LOCK’’ STATUS, WRL, CAN BE SET AND 
RESET USING ‘MAINTENANCE WRITE PROTECT’. MwP. 


PROCEDURE : 
WITH DIAGNOSTIC MODE SET, THE PROGRAM SETS MwP, BIT 03 OF 
AND_ READS 


RMMR1, RMDS TO VERIFY THAT WRL, BIT 11 IS SET. THEN 
MWP I$ RESET AND WRL SHOULD BE ZERO. 


PROBABLE FAULT: 
1. CS MODULE 
2. IF MODULE 
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DRIVE FAULT TEST 


SEEK 


PURPOSE : 


TO VERIFY THAT ‘DEVICE CHECK’', DVC, "'UNSAFE'', UNS, CAN 
BE SET AND RESET USING ‘MAINTENANCE DRIVE *PAULT! MF. 


PROCEDURE : 

WITH DIAGNOSTIC MODE SET, THE PROGRAM SETS MDF, BIT 06 OF 
RMMR1, AND READS RMER3 TO VERIFY THAT DVC, BIT 07 IS SET RMER1 IS 
ALSO READ AND UNS, BIT 14 SHOULD ALSO BE SET. THEN MDF IS RESET 
AND DVC AND UNS SHOULD BE RESET. 

PROBABLE FAULT: 
1. CS MODULE 


2. IF MODULE 


ERROR TEST 
PURPOSE : 


TO VERIFY THAT ‘'SEEK ERROR'', SKI, CAN BE SET AND RESET USING 
"MAINTENANCE SEEK ERROR'’, MSER. 


PROCEDURE : 

WITH DIAGNOSTIC MODE SET, THE TEST SETS MSER, BIT O7 OF 
RMMR1 AND READS RMER3 TO VERIFY THAT SKI, BIT 14 IS SET. MSER IS 
RESET AND SKI SHOULD RESET 
PROBABLE FAULT: 

1. CS MODULE 


2. IF MODULE 


PIP TEST 
PURPOSE : 


TO VERIFY THAT ‘POSITIONING IN PROGRESS'', PIP, CAN BE SET 
AND RESET USING ‘MAINTENANCE ON CYLINDER'', MOC. 





SEQ 0019 
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SEQ 0020 


PROCEDURE : 

DIAGNOSTIC MODE IS SET THEN MOC, BIT 08 OF RMMR1 IS SET AND 
PIP, BIT 13 OF RMDS, SHOULD BE ZERO. MOC IS THEN RESET AND PIP 
SHOULD BE ONE. 
PROBABLE FAULT: 
1. CS MODULE 


2. IF MODULE 


EBL TEST 


LAST 


PURPOSE : 


TO VERIFY THAT END OF BLOCK STATUS ‘TBL'' CAN BE SET AND 
RESET USING DIAGNOSTIC END OF BLOCK ‘DEBL"'. 


PROCEDURE : 

THE PROGRAM SETS DIAGNOSTIC MODE AND VERIFIES THAT EBL IS 
RESET. THEN IT SETS DEBL_AND VERIFIES THAT EBL IS SET. FINALLY, 
THE TEST TRANSFERS A SHIFTING ONE BIT TO RMMR1, AND CHECKS FOR 
DEBL BEING SET BY AN ADJACENT BIT. 

PROBABLE FAULT: 


1. CS MODULE 


SECTOR, LAST TRACK TEST 
PURPOSE : 


TO VERIFY THE DESIRED TRACK/SECTOR PLA ON THE DS MODULE 
USING RMMR1, BITS 01 AND 02. 


PROCEDURE : 

THE TEST WRITES ALL POSSIBLE PATTERNS IN THE DISK ADDRESS 
REGISTER, A, AND VERIFIES ‘LS** AND ‘LST’* STATUS FOR EACH 
PATTERN. THE PROCEDURE IS DONE ONCE FOR 16 BIT FORMAT AND ONCE 
FOR 18 BIT FORMAT. 

PROBABLE FAULT: 
1. DS MODULE 


2. CS MODULE 


C2! 
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RMDA COUNT TEST 


RMDC 


PURPOSE : 


TO VERIFY THAT THE DISK ADDRESS REGISTER (RMDA) INCREMENTS 
PROPERLY. 


PROCEDURE : 


THE TEST INCREMENTS RMDA USING D 
"DEBL'' AND VERIFIES THE RESULT IN BOTH 1 


PROBABLE FAULT: 
1. DS MODULE 


AGNOS 
AND 


I C END OF BLOCK 
6 T 


TI 
18 BIT FORMAT. 


COUNT TEST 
PURPOSE : 


TO VERIFY te THE DESIRED CYLINDER REGISTER,  RMDC, 
INCREMENTS PROPERLY 


PROCEDURE : 


THE PROGRAM INCREMENTS RMDC USING DIAGNOSTIC END OF BLOCK, 
"DEBL"’, VERIFYING THAT RMDC INCREMENTS THROUGH A COMPLETE CYCLE. 


PROBABLE FAULT: 
1. DS MODULE 


LBT TEST 


PURPOSE - 


TU INSURE THAT LAST BLOCK TRANSFERRED, ‘LBT*’, CLEARS WHEN 
RMDA iS WRITTEN, AND SETS WHEN THE LAST SECTOR IS TRANSFERRED. 


PROCEDURE : 


THE TEST USES DIAGNOSTIC EBL TO SET LBT, AND TRANSFERS TO 
RMDA TO RESET LBT. 





NS 


SEQ 0021 
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SEQ 0022 
1084 PROBABLE FAULT: 
085 
1. DS MODULE 
2. IF MODULE 


COMPOSITE ERROR TEST 
PURPOSE : 

TO TEST "‘COMPOSITE ERROR'’, BIT 14 OF RMDS. 
PROCEDURE : 

THE TEST USES INITIALIZE AND DIAGNOSTIC MODE TO FORCE ALL 
ERRORS TO ZERO THEN VERIFIES THAT 'ERR’' IS ZERO. EACH ERROR IS 
INDIVIDUALLY SET AND ‘'ERR'' S D BE ONE FOR EVERY ERROR TESTED. 
ADDRESSES #2 AND #17 OF THE COMPOSITE ERROR PLA ARE NOT TESTED. 
"ABORT’* AND “EXCEPTION'' OUTPUTS OF THE PLA ARE NOT TESTED. THE 
TEST FAILS IF ERR IS NOT ZERO WITH ALL SET ARGUMENTS ZERO OR IF 
ERR IS NOT ONE WITH ANY SET ARGUMENT ONE. 

PROBABLE FAULT: 


1. IF MODULE 


ZESRIRESSZESEE 


Ee ee eee 


—_ A So ss ot a SS SS 


WRITE GO TEST 
PURPOSE : 
TO VERIFY THAT GO CAN BE SET. 
PROCEDURE : 
THE TEST ENABLES THE DEBUG CLOCK, THEN TRANSFERS A NOP 


FUNCTION CODE AND GO BIT TO RMCS1, VERIFYING THAT GO SETS. ALL 
FUNCTION CODES ARE TESTED. 


1 PROBABLE FAULT: 
S 1. IF MODULE 
2. CS MODULE 


kk kd ed dd od dd oh Sh hd a td 
Bann 
OONAW 


mk kk kk ed dd ed td ed od od td od 


* 
o 


BRANCH MULTIPLEXOR TEST 
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PURPOSE : 


TO VERIFY THAT THE OUTPUT OF THE COMMAND SEQUENCER BRANCH 
MULTIPLEXOR DOES NOT HAVE A FAULT. 


PROCEDURE : 

WITH DEBUG CLOCK ENABLED, THE TEST USES VARIOUS FUNCTION 
CODES AND REGISTER CONDITIONS TO ADDRESS THE TEST BIT MULTIPLEXOR 
SUCH THAT THE TEST BIT, BIT12 OF RMMR2, CAN BE CHECKED FOR A 
STUCK FAULT. 

PROBABLE FAULT: 


1. CS MODULE 


SET/RFSET GO TEST 


mee ce eh et eh ee ed ed ed ed 


PURPOSE : 
TO VERIFY THAT GO CAN BE SET AND RESET. 
PROCEDURE : 


THE SUBSYSTEM IS INITIALIZED AND PUT_IN DIAGNOSTIC MODE WITH 
“DEBUG CLOCK ENABLE’’, BIT 14 OF RMMR1 SET.CERTAIN FUNCTION CODES 
ARE WRITTEN IN RMCS1 AND THE PROGRAM READS RMCS1 TO aris’ THAT 
GO IS SET. RMDS IS ALSO READ TO VERIFY THAT oor a S RESET. 
THEN THE PROGRAM STEPS ia. 4 DEBUG ue USING BIT 15 0 ROR AND 
er ist THAT ‘'GO’’ RESETS AND ‘DRY*' SETS. USING A FUNCTION CODE 

T RESETS GO AT A DIFFERENT. PROM ADDRESS. THE TEST FAILS IF GO 
DOES NOT SET OR CANNOT BE RESET BY THE COMMAND SEQUENCER. THE 
TEST ALSO FAILS IF ‘DRIVE READY*’ IS NOT THE COMPLIMENT OF GO. 


PROBABLE FAULT: 
1. CS MODULE 
2. IF MODULE 


END 1 RESET GO TEST 


kkk kk kk ek dd at dh do hd sh ss 
KRRACVLESELRARATASIANAARANASSSAFGLATLS 


me ee ek ed ed ed eed ed 


Oo 
N 





PURPOSE : 


TO VERIFY THAT THE COMMAND SEQUENCER CAN RESET GO AT THE 
END1 LOCATION. 


PROCEDURE : 
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THE TEST EXECUTES RELEASE, SEARCH AND ILLEGAL FUNCTION CODE 
32. IN DIAGNOSTIC MODE AND VERIFIES THAT GO RESETS ON THE 
SPECIFIED CLOCK CYCLE. 

PROBABLE FAULT: 


1. CS MODULE 


SET PULSE TEST 


SSSHVRARWN=SSK 


QUFSWH= 


a kk a gd dh dh th a ed 
Mr 


MmMNr 
N 
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PURPOSE : 

TO VERIFY THAT THE COMMAND SEQUENCER CAN GENERATE SET PULSE. 
PROCEDURE : 

WHICH DEBUG CLOCK ENABLED, THE TEST STEPS THE COMMAND 
SEQUENCER THROUGH PARTS OF VARIOUS FUNCTION CODES AND CHECKS 
CONTINUE, BIT 06 OF RMMR1 TO DETERMINE IF SET PULSE IS BEING 
GENERATED. 

PROBABLE FAULT: 


1. CS MODULE 


SET/RESET IVC TEST 





PURPOSE : 
; TO TEST ‘‘INVALID COMMAND'' STATUS FOR EACH FUNCTION CODE. 
PROCEDURE : 

THE PROGRAM RESETS VOLUME VALID USING ‘MAINTENANCE UNIT 
READY’', BITO9 OF RMMR1, THEN LOADS THE FUNCTION CODE AND GO IN 
RMCS1. EACH FUNCTION CODE IS TESTED AND “‘IVC’’, BIT 12. OF RMER2 
IS CHECKED. 

PROBABLE FAULT: 
1. CS MODULE 


2. IF MODULE 
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SET LSC TEST 


ad ad aed ed od 


NMNNNMNNoNnNM—Nofefory 
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294 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
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1308 
1, 
1 
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PURPOSE : 

TO VERIFY THAT ‘LOSS OF SYSTEM CLOCK’’ CAN SET AND RESET. 
PROCEDURE : 

THE TEST pa THE DEBUG CLOCK AND SETS THE GO BIT. AFTER 
WAITING ENOUGH TIME FOR THE ONE SHOT TO SET, THE TEST DISABLES 
THE DEBUG CLOCK AND VERIFIES THAT LSC SETS. 

PROBABLE FAULT: 
1. CS MODULE 


2. IF MODULE 


DECODE TEST 


PURPOSE : 


TO VERIFY THAT THE ‘DECODE’' FLOP ON THE IF MODULE SETS WITH 
awe EDGE OF ‘’SET PULSE** EXCEPT WHEN ‘'COMPOSITE ERROR’ IS 


PROCEDURE : 


THE TEST USES ‘VOLUME VALID'’ AND ‘OCCUPPIED'* TO DETERMINE IF 
THE DECODE FLOP IS SET OR RESET. INITIALLY. VV AND OCCUPPIED ARE 
RESET AND THE TEST EXECUTES THOSE COMMANDS WHICH SET VV OR OCC 
AND VERIFIES THAT ONE OR BOTH BITS SET. THE SAME COMMANDS ARE 
EXECUTED AGAIN WITH COMPOSITE ERROR SET, AND THE TEST VERIFIES 
THAT NEITHER BIT SETS. 


PROBABLE FAULT: 
1. IF MODULE 


SET/RESET VOLUME VALID TEST 


PURPOSE : 


TO VERIFY THAT ‘VOLUME VALID*’ RESETS WITH THE LEADING EDGE 
A a READY, AND SETS WITH PACK ACKNOWLEDGE AND READ IN PRESET 


PROCEDURE : 





SEQ 0025 


C2! 
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SEQ 0026 | BA‘ 

1312 USING ‘MAINTENANCE UNIT READY'', BIT ? OF RMMR1, THIS TEST 
1313 FORCES A ZERO TO ONE TRANSITION OF UNIT READY AND VERIFIES THAT 
1314 VOL UME VALID,BIT 6 OF RMDS IS ZERO. THEN THE TEST EXECUTES 
1315 PACK ACKNOWLEDGE COMMAND, VERIFYING THAT VV SETS. THE PROCEDURE 
1316 IS REPEATED WITH A READ IN PRESET COMMAND. | 
1318 PROBABLE FAULT: | 
1319 
1320 1. IF MODULE | 
1321 
1322 
1323 
1324 
1325 
13ge ILLEGAL FUNCTION TEST 
1308 PURPOSE : 
1330 TO TEST ILLEGAL FUNCTION ERROR IN THE RMO5/3/2. | 
1332 PROCEDURE : 
1334 WITH DIAGNOSTIC CLOCK ENABLED TO INHIBIT THE COMMAND 
1335 SEQUENCER, THIS TEST VERIFIES THAT ‘‘ILF'', BIT 0 OF RMER1, IS OFF 
1336 FOR LEGAL FUNCTION CODES AND ON FOR ILLEGAL FUNCTIONCODES. THE 
1337 STATUS OF THE ''GO'' BIT IS IGNORED. | 
1339 PROBABLE FAULT: 
1340 
1341 1. IF MODULE 
1342 
1343 | 
1344 
1345 
1346 
1347 OCCUPIED TEST 
1348 
fa PURPOSE : | 
1351 TO VERIFY THAT ‘OCCUPIED'’ IS SET DURING DATA TRANSFERS AND | 
1352 IS RESET FOR ALL OTHER COMMANDS. 

| 
1354 PROCEDURE : 
1356 FOR EACH DATA TRANSFER COMMAND, ‘occ’, BIT 15 OF RMMRI | 
1357 SHOULD BE ONE, G CLOCK IS ENABLED “TO PREVENT GO FROM 
1358 RESETTING BEFORE STATUS IS SAMPLED. 
1360 PROBABLE FAULT: 
1362 1. IF MODULE 
1363 | 
1364 2. CS MODULE 
1365 
1366 | 
1367 
1368 
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READ IN PRESET TEST 


PURPOSE : 


TO VERIFY THAT ‘READ IN PRESET’’ COMMAND IS DECODED, AND IN 
nn TO VERIFY THAT "IFS READ IN CMD L’' IS NOT STUCK AT 


PROCEDURE : 


EACH VISIBLE STATUS OR REGISTER Ht WHICH IS CLEARED BY 
"READ IN PRESET’ IS SET. THEN THE RIP COMMAND IS EXECUTED AND 
THE TEST VERIFIES THAT ONE OR MORE BITS ARE CLEARED. THE 
FOLLOWING ARE USED DURING THE TEST. 


L BITS OF RMOF ARE SET BY A MOVE INSTRUCTION AND THE TEST 
BASSES IF USED BITS ARE ZERO AFTER THE RIP COMMAND. 


- THE DESIRED CYLINDER REGISTER, RMDC, IS SET WITH A MOVE 
ee TION AND THE TEST PASSES IF BITS 00-09 ARE ZERO AFTER THE 


. THE DISK ADDRESS REGISTER, RMDA, IS SET WITH A MOVE INSTRUCTION 
a4 air chines. PASSES IF BITS 00-07, AND BITS 08-15 ARE ZERO AFTER 


THE TEST FAILS IF NONE OF THE PRESET TERMS ARE ZERO AFTER THE RIP 
COMMAND 


PROBABLE FAULT: 
1. IF MODULE 7+ 


RIP/RMOF TEST 


PURPOSE : 


ERIFY THAT "READ IN PRESET’' RESETS FMT16, EC] AND HCI, 
BITS 10,11 AND 12 OF RMOF. 


PROCEDURE : 


FMT16, EC] AND HCI ARE SET, THEN A RIP COMMAND IS EXECUTED 
AND EACH BIT SHOULD BE ZERO. 


PROBABLE FAULT: 
1. IF MODULE 


Oe ae ee 
CZRMPAQ RMOS/3/2 DSKLS TST 1 MACRO VO3.01 11-APR~80 13:58:55 PAGE 3-25 





SEQ 0028 


1427 RMDA/RMDC/RIP TcST 
1429 PURPOSE : 


1431 TO VERIFY THAT “READ IN PRESET’’ RESETS THE DESIRED CYLINDER 
1432 ADDRESS, RMDC, AND THE DISK ADDRESS, RMDA. 


1434 PROCEDURE : 


14% RMDA AND RMDC ARE PRESET THEN TESTED FOR ZERO AFTER THE RIP 
1437 COMMAND . 


1439 PROBABLE FAULT: 
1441 1. DS MODULE 


1447 OFFSET COMMAND TEST 

1449 PURPOSE : 

1451 TO VERIFY THAT ‘OFFSET MODE’ SETS WITH OFFSET COMMAND. 
1453 PROCEDURE : 


1455 THE TEST EXECUTES OFFSET COMMAND AND VERIFIES THAT ‘OM’, BIT 
1456 00 OF RMDS IS ONE. 


1458 PROBABLE FAULT: 
1460 1. IF MODULE 


1466 RETURN TO CENTER TEST 

1468 PURPOSE : 

1470 TO VERIFY THAT “RETURN TO CENTER’ RESETS OFFSET MODE. 

1472 PROCEDURE : 

1474 OFFSET MODE. BIT 00 OF RMDS, IS SET WITH OFFSET COMMAND, 
1475 THEN THE TEST EXECUTES A RETURN TO CENTER COMMAND AND VERIFIES 
1476 THAT OFFSET MODE RESETS. OFFSET DIRECTION IS ALSO SET AND 
1477 CHECKED FOR ZERO AFTER THE COMMAND. 

1479 PROBABLE FAULT: 


1481 1. IF MODULE 


Rai ra RN a ae a a I a Ee AE Se NG oe alah te eth 


Dd 3 
CZRMPAQ RMOS/3/2 DSKLS TST 1 MACRO VO03.01 11-APR-80 13:58:55 PAGE 3-26 





SEQ 0029 
1483 
1484 
1485 ; 
1486 
1487 RMDC CLEAR OFFSET TEST 
1488 
or 44 PURPOSE : 
1491 TO VERIFY THAT CLEAR OFFSET IS ACTIVE WHEN THE DESIRED 
pe CYLINDER ADDRESS IS WRITTEN. 
pp PROCEDURE : 
1496 THE TEST EXECUTES AN OFFSET COMMAND, WRITES RMDC, AND 
oy 4 VERIFIES THAT OM, BIT OO OF RMDS IS ZERO. 
1499 PROBABLE FAULT: 
1500 
1501 1. DS MODULE 
1502 
1503 2. IF MODULE 
1504 
1505 _. 
1506 
1507 
1508 
deur EBL CLEAR OFFSET TEST 
13) PURPOSE : 
1513 TO VERIFY THAT OFFSET MODE CLEARS WHEN HEAD SWITCHING 
1514 OCCURS. 
1515 
a PROCEDURE : 
1518 THE TEST wn the AN OFFSET COMMAND TO SET OFFSET MODE. 
1519 *' TER SETTING THE FORMAT BIT AND LOADING THE LAST SECTOR/TRACK 
1520 ADDRESS IN wen. THE TEST FORCES AN EBL AND VERIFIES THAT OFFSET 
182% MODE RESETS 
1522 
1523 PROBABLE FAULT: 
1524 
1525 1. DS MODULE 
1526 
1527 
1528 
1529 
1530 
1531 RUN AND GO TEST 
1532 
seer PURPOSE : 
ne 2d VERIFY THAT ‘'RUN AND GO’ FLOP SETS DURING READ AND WRITE 
1537 
1538 PROCEDURE : 
1539 
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THE RMO5/3/2 IS INITIALIZED AND A DATA TRANSFER COMMAND WITH 
GO y 3 IS Thala IN RMCS1. ‘RUN AND GO"', BIT 14 OF RMMR1 SHOULD BE 


ONE FOR EACH A COMMAND. THE DEBUG CLOCK IS ENABLED SO THAT GO 
DOES NOT RESET BEFORE STATUS IS TESTED. 

PROBABLE FAULT: 

1. CS MODULE 


2. SYNCHRONOUS MASSBUS MODULE 


SET IAE TEST 


MAMI MMMAU 


PARAL 
DONA 
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PURPOSE : 
TO VERIFY THAT INVALID ADDRESS ERROR CAN SET. 
PROCEDURE : 
THE TEST LOADS INVALID SECTOR, TRACK AND CYLINDER ADDRESSES 
A__SEARCH COMMAND, VERIFYING THAT ‘‘IAE’' SETS. THE 


AND EXECUTES 
PROCESS IS REPEATED WITH A DIFFERENT COMMAND IF THE IAE DOES NOT 
SET, AND THE TEST FAILS IF IAE CANNOT BE SET. 


PROBABLE FAULT: 
1. DS MODULE 
2. IF MODULE 


SEARCH, SEEK, READ, WRITE TEST 


wicbet oR) 


wi 
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1 
1 
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1 
1 
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PURPOSE : 


TO VERIFY THAT THE “SCH SK R OR W'* DECODE ON THE IF MODULE 
IS CORRECT FOR ALL FUNCTION CODES. 


PROCEDURE : 

THE TEST LOADS INVALID SECTOR, TRACK AND CYLINDER ADDRESSES 
AND EXECUTES EACH COMMAND 10 ERE SET PULSE IS ACTIVE AND 
VERIFIES THE DECODE BY CHECKING ‘‘IAE"’. 
PROBABLE FAULT: 


1. IF MODULE 
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SEQ 0031 
1597 
1598 
+ INVALID TRACK/SECTOR TEST 
13 PURPOSE : 
1603 TO VERIFY THAT INVALID TRACK AND SECTOR ADDRESSES ARE 
1604 DETECTED. 
1605 
as PROCEDURE : 
1608 THE TEST LOADS THE TEST PATTERN IN RMDA AND EXECUTES A 
x14 SEARCH COMMAND, VERIFYING THAT ‘‘IAE'’ SETS. 
1611 PROBABLE FAULT: 
1612 
tt 1. DS MODULE 
seta 2. TRACK ADDRESS OPTION JUMPER 
1617 
1618 
1619 
1620 
1621 INVALID CYLINDER TEST 
1622 
og PURPOSE : 
td TO VERIFY THAT INVALID CYLINDER ADDRESSES ARE DETECTED. 
: 374 PROCEDURE : 
1629 THE TEST LOADS THE TEST PATTERN IN RMDC AND EXECUTES A 
io” SEARCH COMMAND, VERIFYING THAT ‘‘IAE’' SETS. 
1632 PROBABLE FAULTS: 
1633 
ox 1. DS MODULE 
io 2. CYLINDER ADDRESS OPTION JUMPER 
1638 
1639 
1640 
1641 
1642 SET AOE TEST 
1643 
1*s PURPOSE : 
1646 TO VERIFY THAT ADDRESS OVERFLOW ERROR IS DETECTED. 
PROCEDURE : 


THE TEST LOADS THE reir OF THE ie SECTOR IN RMDA_ AND 
RMDC, THEN INITIATES A DATA COMMAND WITH DEBUG CLOCK ee 
END OF BLOCK IS FORCED TO wi aed THE SECTOR ADDRESS, AND THE 
TEST VERIFIES THAT ‘'AOE’’ IS SET 
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PROBABLE FAULT: 
1. DS MODULE 


SET RMR TEST 
PURPOSE : 

TO VERIFY THAT ‘REGISTER MODIFICATION REFUSED'' SETS WHEN A 
REGISTER IS WRITTEN WHILE GO IS SET, EXCEPT WHEN THE ATTENTION OR 
MAINTENANCE REGISTER IS WRITTEN. 

PROCEDURE : 

“DEBUG CLOCK ENABLE’’ IS SET TO INHIBIT THE C 
SEQUENCER, THEN A NOP COMMAND AND GO BIT IS WRITTEN IN RMCS1. 
WITHOUT STEPPING THE DEBUG CLOCK, THE TEST WRITES RMMR AND RMAS, 
WHICH SHOULD NOT SET RMR STATUS. THEN RMDA IS WRITTEN AND RMR 
STATUS, BIT O2 OF RMER1, SHOULD BE ONE. 

PROBABLE FAULT: 


1. IF MODULE 


PGM STATUS CHECK 
PURPOSE : 


TO VERIFY THAT THE PROGRAMMABLE STATUS BIT AND THE DRIVE 
REQUEST STATUS BIT ARE COMPATABLE. 


PROCEDURE : 
THE TEST REPORTS AN ERROR IF PGM IS ON AND DRQ IS O 
IS_ NOT PREDICTABLE IN THE CASE WHERE DRQ IS ON BECAUSE “OF THE 
PORT SELECT SWITCH. 
PROBABLE FAULT: 


1. IF MODULE 


DVA/DPR STATUS CHECK 
PURPOSE : 


SEQ 0032 
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SEQ 0033 


status ae ter. DEVICE AVAILABLE STATUS AND DRIVE PRESENT 
PROCEDURE : 
DVA AND DPR ARE TESTED AND BOTH SHOULD BE ON. 
PROBABLE FAULT: 
1. IF MODULE 


REQUEST TEST, PART 1 
PURPOSE : 


TO VERIFY THAT THE PORT REQUEST FLOPS ON THE IF MODULE SET 
WHEN THE PROGRAM READS RMCS1. 


PROCEDURE : 
THE TEST EXECUTES A RELEASE COMMAND, THEN, ASSUMING THE PORT 

IS RELEASED, IT READS RMCS1, THEN READS RMMR2 AND VERIFIES THAT 

ONE OF THE PORT REQUEST FLOPS IS SET. 

PROBABLE FAULT: 

1. IF MODULE 


2. CS MODULE 


REQUEST TEST, PART 2 
PURPOSE : 


TO VERIFY THAT THE PORT REQUEST FLOPS ON THE IF MODULE SET 
WHEN THE PROGRAM WRITES RMAS. 


PROCEDURE : 


THE TEST EXECUTES A RELEA*c COMMAND THEN WRITES RMAS AND 
READS RMMR2, VERIFYING THAT ON. JF THE REQUEST FLOPS IS SET. 


PROBABLE FAULT: 


1. IF MODULE 
2. (CS MODULE 


| ee Pre OCR oer were Ter Lar is Oe tee 
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PORT REQUEST TEST, PART 3 
PURPOSE : 


TO VERIFY THAT PORT REQUEST SETS WHEN ANY REGISTER EXCEPT 
RMAS IS WRITTEN. 


PROCEDURE : 


THE TEST WRITES THE i ADDRESS REGISTER AND VERIFIES THAT 
THE PORT REQUEST FLOP IS ON 


PROBABLE FAULT: 
1. IF MODULE 
2. CS MODULE 


RELEASE TEST 
PURPOSE : 


TO VERIFY THAT A RELEASE COMMAND CAN RESET THE REQUEST FLOPS 
RQA AND RQB IN MAINTANCE REGISTER #2. 


PROCEDURE : 


THE PROGRAM SETS REQUEST FLOP BY WRITTING THE og REGISTER 
THEN, EXECUTES A RELEASE COMMAND TO RESET THE REQUEST FLOP. 


PROBABLE FAULT: 
1. IF MODULE 


WRITE ATA TEST 
PURPOSE : 


TO VERIFY THAT ATTENTION CAN BE CLEARED BY WRITING THE 
ATTENTION SUMMARY REGISTER. 


PROCEDURE : 


THE PROGRAM RESETS AND SETS UNIT READY WHICH SHOULD CAUSE AN 
ATTENTION, THEN WRITES THE ATTENTION SUMMARY REGISTER AND 


SEQ 0034 


CZ 
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SEQ 0035 
1825 VERIFIES THAT ATTENTION IS RESET. 
1827 PROBABLE FAULT: 
1828 
1829 1. IF MODULE 
1830 
1831 2. CS MODULE 
1832 
1833 
1834 
1835 
1836 
1837 RESET ATA BY GO TEST 
1838 
1859 PURPOSE : 
1841 TO VERIFY THAT ATA RESETS WHEN GO IS ON AND COMPOSITE ERROR 
1842 IS OFF. 
1843 
1844 PROCEDURE : 
1846 THE PROGRAM SETS MAINTENANCE UNIT READY WHICH SHOULD CAUSE 
1847 AN ATTENTION. THEN, WITH DEBUG CLOCK ENABLED, GO IS SET, AND ATA 
148 SHOULD BE ZERO. 
1850 PROBABLE FAULT: 
1851 
1852 1. IF MODULE 
1853 
1854 
1855 | 
1856 
1857 
1858 UNIT READY ATA TEST | 
1859 | 
1860 PURPOSE : | 
1862 TO VERIFY THAT ONE~ZERO AND ZERO-ONE TRANSITIONS OF UNIT 
1865 READY SET ATTENTION. | 
1865 PROCEDURE : | 
1867 THE TEST USES DIAGNOSTIC MODE TO FORCE BOTH TRANSITIONS OF 
1868 UNIT READY AND VERIFIES THAT ATA SETS WITH EACH TRANSITION. 
1870 PROBABLE FAULT: 
1871 
1872 1. IF MODULE 
1873 
1874 
1875 
1876 
1877 
1878 ERROR ATA TEST 
1879 
1880 PURPOSE : 
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TO wiry h _— ATTENTION SETS WHEN COMPOSITE ERROR OCCURS 
WHILE GO IS OFF 


PROCEDURE : 


THE PROGRAM CLEARS THE DEVICE AND SETS AN ERROR, THEN 
VERIFIES ATA IS ON. 


PROBABLE FAULT: 
1. IF MODULE 


REGISTER TRANSFER ATA TEST 


PURPOSE : 


TO VERIFY THAT ATTENTION SETS WHEN ANY REGISTER, EXCEPT FOR 
RMAS AND RMCS, IS WRITTEN WHILE COMP ERROR IS SET. 


PROCEDURE : 

THE PROGRAM FORCES AN ERROR THEN a ATTENTION FROM THE 
ERROR. THE PROGRAM THEN WRITES RMAS AND RMCS AND VERIFIES THAT 
NO ATTENTION OCCURS, AND WRITES RMDC AND VERIFIES THAT ATTENTION 
DOES OCCUR. 

PROBABLE FAULT: 


1. IF MODULE 


P SET ATA TEST 


PURPOSE : 


TO VERIFY THAT ATA IS SET AT THE COMPLETETION OF AN OFFSET AND 
RETURN TO CENTER LINE COMMAND. 


PROCEDURE : 


THE PROGRAM EXECUTES THE COMMANDS USING THE MAINTANCE DEBUG 
CLOCK AND EXPECTS ATA TO BE SET ON COMPLETETION. 


PROBABLE FAULT: 
1. IF MODULE 


SEQ 0036 | 
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SET WLE TEST 


DATA 


PURPOSE : 
TO VERIFY THAT “WLE’’ IS SET OR RESET WHEN IT SHOULD BE. 
PROCEDURE : 


THE PROGRAM EXECUTES THE FOLLOWING COMMANDS USING THE 
MAINTANCE DEBUG CLOCK AND EXPECTS WLE SET OR RESET. 


EXECUTE WRITE DATA COMMAND WITH MAINTANCE WRITE PROTECT SET, 
SHOULD EXPECT WLE TO BE SET. 


EXECUTE WRITE DATA COMMAND WITHOUT MAINTANCE WRITE PROTECT 
SET, SHOULD EXPECT WLE TO BE RESET. 


EXECUTE READ DATA COMMAND WITH MAINTANCE WRITE PROTECT SET, 
SHOULD EXPECT WLE TO BE RESET. 


EXECUTE READ IN PRESET COMMAND WITH MAINTANCE WRITE PROTECT 
SET, SHOULD EXPECT WLE TO BE RESET. 


PROBABLE FAULT: 
1. CS MODULE 
2. IF MODULE 


COMMAND TESTS (1, 2, 3) 
PURPOSE : 

TO VERIFY THE COMMAND SEQUENCER DURING DATA COMMANDS. 
PROCEDURE : 


QUENCER THROUGH EACH BRANCH PATH. ADDITIONAL ITEMS 
WHICH ARE TESTED INCLUDE OFFSET PLUS AND MINUS ON THE TAG BUS AND 
“ENABLE SEARCH’’, BIT 11 OF RMMR1. 


PROBABLE FAULT: 


1. CS MODULE 





SEQ 0037 
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:PROGRAM VERSION #001 
- TITLE aa RMO5/3/2 DSKLS TST 1 
:*COPYRIGHT (C) 1980 
: MAYNARD EQUIPMENT CORP. 
MAYNARD, MASS. 01754 
! PROGRAM BY MIKE LEAVITT 


eTHIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC SYSMAC 
s SPACKAGE (MAINDEC-11=DZQAC=C4), 1980. 


*SBTTL OPERATIONAL SWITCH SETTINGS 


** 

* SWITCH USE 

i | (Sr ee te ee noe ce ee ee ee ee 
;* 15 HALT ON ERROR 

s* 14 LOOP ON TEST 

* 13 INHIBIT ERROR TYPEOUTS 
;* 11 INHIBIT ITERATIONS 

3* 10 BELL ON ERROR 

2* 9 LOOP ON ERROR 

:* 8 Mos ON TEST IN SWR<7:0> 
:* 7 ™N128 

:* 6 N64 

:* 5 TN32 

:* 4 ™N16 

7* 3 TN8 

;* 2 TN4 

* 1 TN2 

:* 0 TN1 


-SBTTL BASIC DEFINITIONS 


:*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *«* 
STACK 1100 


ERROR = EMT +:BASIC DEFINITION OF ERROR CALL 
SCOPE = IOT :3BASIC DEFINITION OF SCOPE CALL 
2 *MISCELLANEOUS DEF INITIONS 
HT = 11 2 CODE FOR HORIZONTAL TAB 
LF = 12 CODE FOR LINE FEED 
CR = 15 : CODE FOR CARRIAGE RETURN 
CRLF = 200 ODE FOR CARRIAGE RETURN-LINc FEED 
<% - = 177776 >;PROCESSOR STATUS WORD 
STKLMT = 177774 2 STACK LIMIT REGISTER 
PIRQ = 177772 zPROGRAM INTERRUPT REQUEST REGISTER 
DSWR = 177570 HARDWARE SWITCH REGISTER 
DDISP) = 177570 :sHARDWARE DISPLAY REGISTER 
;*GENERAL PURPOSE REGISTER DEF INITIONS 
RO = x0 3;GENERAL REGISTER 
R1 = 21 2:GENERAL REGISTER 
R2 = %2 ie NERAL REGISTER 
R3 = %3 :;GENERAL REGISTER 
R4 = 34 7 :GENERAL REGISTER 





SEQ 0038 
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BASIC DEFINITIONS 


000005 R5 = %5 7;GENERAL REGISTER 
000006 R6 = % :;GENERAL REGISTER 
000007 R7 = %7 7 ;GENERAL REGISTER 
000006 sP = %6 3zSTACK POINTER 
000007 PC = %7 3 PROGRAM COUNTER 
; *PRIORITY LEVEL DEFINITIONS 
000000 PRO ::PRIORITY LEVEL 0 
000040 PR1 = 40 z:PRIORITY LEVEL 1 
000100 PR2 = 1 ::PRIORITY LEVEL 2 t, 
000140 PR3 = 140 ::PRIORITY LEVEL 3 
200 PR4 = ::PRIORITY LEVEL 4 meas 
000240 PRS = 240 ::PRIORITY LEVEL 5 
300 PR6 = 300 +:PRIORITY LEVEL 6 
000340 PR7 = 340 ::PRIORITY LEVEL 7 
:*" ‘SWITCH REGISTER’’ SWITCH DEFINITIONS 
100000 Sw15 = =_:100000 
040009 Sw14. = 40000 
020000 Sw13 ss = _-20000 
010000 SWwi2 = 10000 
004000 Sw11 = 4000 
000 Sw10 = 2000 
001000 swo9 = 1000 
00 swo8 = 400 
000200 swO7 = 200 
000100 SwO6 = 100 
0 swo5 3s = 40 
000020 sw04 = 20 
000010 swo3. =: 10 
000004 swo2 = 4 
000002 Sw01 = 2 
000007 swooO 3 = 1 
001000 Sw9=SWO9 
000400 SW8=SW08 
000200 SwW7=SwWO 
000100 SW6=S 
000040 SwW5=SW05 
000020 SW4= 
000010 SwW3=SW03 
000004 SwW2=Sw02 
000002 Sw1=Sw01 
000001 Sw0=S 
z*DATA BIT DEFINITIONS (BITOO TO BIT15) 
BIT15 = 100000 
= 40000 
= 20000 
= 10000 
= 4000 
= 2000 
= 1000 
= 400 
= 200 
= 100 
= 40 


20 


SEQ 0039 
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BASIC DEFINITIONS SEQ 0040 
000010 BITO3 = 10 
000004 BIT0Q2 =4 
000002 BIT0i1 =2 
000001 BI1T00 == 1 
001000 BIT9=81T09 
000400 B1T8=81T08 
000200 B1T7=81T07 
000100 81 T6=81T06 

0 B1T5=81T05 
000020 B1T4=B81T04 
000010 B1T3=B81T 
000004 BIT2=B1T02 
000002 B1T1=81T01 
000001 B1T0=81 T00 


beat « eal TRAP VECTOR ADDRESSES 


C = 32 TIME OUT = OTHER ERRORS 
000010 RESVEC = to 7 ;RESERVED AND ILLEGAL INSTRUCTIONS 
000014 TBITVEC = 14 33°'T* BIT 
000014 C = 14 32 TRACE TRAP 
000014 BPTVEC = 14 ; ;BREAKPOINT TRAP (BPT) 
000020 IOTVEC = 20 :¢ INPUT/OUTPUT TRAP (107) **SCOPE** 
000024 VEC = 24 R FAIL 
000030 EMTVEC = 30 : : EMULATOR TRAP (EMT) **ERROR** 
000034 TRAPVEC = 34 33" 'TRAP** TRAP 
TKVEC = 60 i: TTY KEYBOARD VECTOR 
TPVEC = 64 z:TTY PRINTER VECTOR 
_ 000240 PIRQVEC = 240 3 PROGRAM INTERRUPT REQUEST VECTOR 
os -SBTTL RM REGISTER BIT DEFINITIONS 
one :*RMCS1 CONTROL STATUS REGISTER 
694 004000 DVA = B1T11 DEVICE AVAILABLE-READ ONLY 
695 000040 F4 = BITOS FUNCTION CODE 
0000 F3 = BITO4 FUNCTION CODE 
697 00001 Fe = B1T03 FUNCTION CODE 
698 000004 Fl = BITO2 :FUNCTION CODE 
699 000002 FO = B1T01 FUNCTION CODE 
700 000001 = B1T00 260 BIT 
4h 000077 FNCMSK = 000077 [FUNCTION CODE MASK 
703 sFUNCTION CODES (BITS 01-05 OF RMCS1) 
704 000000 NOP = 000000 :NOP_ COMMAND 
705 000002 ILFO2 = 000002 ILLEGAL COMMAND 
706 000004 SEEK = 000004 SEEK COMMAND 
707 RECAL = 006006 ;RECALIBRATE COMMAND 
708 000010 DRVCLR = 000010 :DRIVE CLEAR COMMAND 
709 000012 RLEASE = 000012 ;RELEASE COMMAND 
710 000014 OFFSET = 000014 FSET COMMAND 
711 000016 RTC = 000016 RETURN TO CENTERLINE COMMAND 
712 000020 RIP = 000020 sREAD IN PRESET COMMAND 
713 000022 PAKACK = 000022 PACK ACKNOWLEDGE COMMAND 
714 000022 PACACK = PAKACK 
715 000024 ILF24 = 00002 efiret COMMAND 
716 000026 ILF26 == 000026 ILLEGAL COMMAND 
17 000030 SEARCH = 000030 SEARCH COMMAND 
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RM REGISTER BIT DEFINITIONS SEQ 0041 
720 000030 1LE3Q = 00030 ; ILLEGAL COMMAND 
| 000032 ILF32 © = 000032 ILLEGAL COMMAND 
0000 ILF34 = 0000 ILLEGAL COMMAND 
0000 ILF36 © = 000036 ILLEGAL COMMAND 
000040 ILF40 © = 000040 ILLEGAL COMMAND 
000042 ILF42 = 000042 ILLEGAL COMMAND 
000044 ILF44 © = 000044 ILLEGAL COMMAND 
000046 ILF46 = 000046 ‘ILLEGAL COMMAND 
721 000050 wD = 000050 WRITE CHECK DATA COMMAND 
722 000052 WH —- =: 000052 SURITE CHECK HEADER AND DATA 
723 000054 ILF54 = 000054 ILLEGAL COMMAND 
724 000056 ILF56 © = 000056 ILLEGAL C 
725 000060 = 000060 WRITE DATA COMMAND 
726 000062 WH = 000062 iWRITE HEADER AND DATA COMMAND 
727 000064 ILF64 = 000064 ILLEGAL COMMAND 
728 000066 ILF66 == 000066 ILLEGAL _C 
729 000070 RD = 000070 READ DATA COMMAND 
730 000072 = 000072 READ HEADER AND DATA COMMAND 
731 000074 ILF74 = 000074 ILLEGAL COMMAND 
r3e 000076 ILF76 = 000076 ILLEGAL COMMAND 
734 ;*RMDA DISK ADDRESS REGISTER 
736 ; TRACK ADDRESS DEF INI TIONS 
737 010000 TA16.— = BITI2 TRACK ADDRESS 16. 
004000 T = BITI1 TRACK ADDRESS 8. 
739 002000 TAS Ss = BITI0 STRACK ADDRESS 4 
740 001000 TA2 —s = BITOS TRACK ADDRESS 2 
ro) 000400 TA = B1T08 TRACK ADDRESS 1 
743 ;SECTOR ADDRESS DEFINITIONS 
744 000020 16 = BIi04 SECTOR ADDRESS 16. 
745 000010 SAB = BITO3 SECTOR ADDRESS 8. 
000004 SAZ ss = BITO2 SECTOR ADDRESS 4 
747 000002 = B1T01 :SECTOR ADDRESS 2 
768 000001 SAT = BITOO SECTOR ADDRESS 1 
750 {TRACK & SECTOR MASKS 
751 177400 TADMSK = 177400 ; TRACK ADDRESS MASK 
13¢ 00037 = 000377 SECTOR ADDRESS MASK 
754 ;*RMDS DRIVE STATUS REGISTER 
756 100000 ATA —s_ = BIT15 ATTENTION ACTIVE 
757 040000 = BIT14 COMPOSITE ERROR 
758 020000 PIP = = BIT13 POSITIONING IN PROGRESS 
759 010000 MOL = BIT12 MEDIUM ON LINE 
760 004000 WRL = = BITI1 WRITE L 
761 002000 LBT = = BIT10 ;LAST BLOCK TRANSFERRED 
762 001000 PGM = = BITOS £ 
763 000400 DPR = = _BITOB "DRIVE PRESENT 
64 000200 DRY = = BITO7 DRIVE READY 
765 000100 Ww = BIT06 VOLUME VALID 
766 000001 = B1T00 OFFSET MODE ACTIVE 
768 ;*RMER1 ERROR REGISTER #1 


ma 
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SEQ 0042 
DCK = BIT15 :DATA_CHECK ERROR 
UNS = BIT14 DRIVE _UNSAF 
OPI = B1T13 OPERATION INCOMPLETE 
DTE = BITI2 DRIVE TIMING ERROR 
WLE = BIT11 iWRITE LOCK ERROR 
IAE = B1T10 : INVALID ADDRESS ERROR 
AOE = BITO9 s ADDRESS OVERFLOW ERROR 
HCRC = BIT08 ; ADER CRC ERROR 
HCE = BIT07 ADER COMPARE ERROR 
ECH = BIT06 a. 
WCF = BITOS WRITE CLOCK FAILURE 
FER = BITO4 i FORMAT ERROR 
PAR = BIT03 sPARITY ERROR 
RMR = BITO2 REGISTER MODIFICATION REFUSED 
ILR = B1T01 ILLEGAL REGISTER 
ILF = BIT00 ; ILLEGAL FUNCTION 


= DCK!DTE!WLE!AOE!HCRC!HCE!ECH!WCFIFER 
SOND TMSK™ IS USED TO MASK ERROR REGISTER 1 DURING NON - DATA 
COMMANDS, I.E., HOUSEKEEPING AND POSITIONING COMMANDS 


2*RMAS ATTENTION SUMMARY REGISTER 


ATNMSK = 377 MASK FOR ATTENTION BITS 
3*RMLA LOOK AHEAD REGISTER 

SC4 = BIT10 SECTOR COUNT = 16 

$c3 = BITO9 SECTOR COUNT = 8 

SC2 = BITO8 SECTOR COUNT = 4 

$c = BIT07 SECTOR COUNT = 2 

Sco = BITO6 SECTOR COUNT = 1 

SCTMSK = 003700 SECTOR COUNT MASK 


:*RMMR1 MAINTENANCE REGISTER #1 
WRITE ONLY BITS 
68 


CK = BIT15 DEBUG CLOCK 

N = BIT14 DEBUG CLO 
DEBL = BIT13 :DIAGNOSTIC END OF BLOCK 
DTO = BIT12 DIAGNOSTIC TIMEOUT 
MCLK = BIT11 MAINTENANCE CLOCK 
MRD = B1T10 zREAD DATA 
MUR = BITO9 UNIT READY 
MOC = BITO8 :0N CYLINDER 
MSER = BITO7 ; SEEK ERROR 
MDF = BITO6 DRIVE FAULT 
MS = BITOS SECTOR PULS 
MwP = BITO3 WRITE PROTECT 
MI = BITO2 : INDEX 
MSC = BITO1 SECTOR COMPARE 
DMD = BIT00 :DIAGNOSTIC MODE 
zREAD ONLY BITS 
occ = BIT15 : OCCUPIED 
RG = BIT14 RUN AND GO 


me 


Meus 
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051401 


100009 
040000 
020000 
004000 


020024 
024024 


010000 
004000 
002000 
000200 
161577 


001777 
176000 
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EBL = BIT13 
REX = BITI2 
ESRC = B1T11 
PLFS = BIT10 
ECRC = BITO9 
PDA = BITO8 
PHA = BITO7 
CONT = BIT 
WC = BITOS 
EECC = BIT04 
MwD = BITO3 
LS = BITO2 
LST = B1T01 
DMD = B1T00 
MRIAAA = DMD!MUR!DBEN!MOC !DTO 


:*RMDT DRIVE TYPE REGISTER 


NSA = BIT15 
TAP = BIT14 
MOH = BIT13 
DRQ = BIT11 
SNGPRT = 020024 
DULPRT = 024024 
:*RMOF OFFSET REGISTER 
FMT16 == BIT12 
CI = BIT11 
HCI = B1T10 
OF D = BIT07 
XNUOF = 161577 


ZEXCEPTION 


WRITE DATA BIT 

:LAST SECTOR 

sLAST SECTOR AND TRACK 
DIAGNOSTIC MODE 


NOT SECTOR ADDRESSED = 0 
TAPE DRIVE = 0 


;MOVING HEAD = 1 
:DRIVE REQUEST REQUIRED 


SINGLE PORT DRIVE TYPE 
;DUAL PORT DRIVE TYPE 


316 BIT WORD FORMAT 
ECC INHIBIT 

HEADER COMPARE INHIBIT 
OFFSET FORWARD 

:UNSED BITS OF RMOF 


:*RMDC DESIRED CYLINDER ADDRESS REGISTER 


CYLMSK = 001777 
XNUDC = 176000 


:*RMMR2 MAINTENANCE REGISTER #2 


ie aad ony ott? 
ROB = BIT14 
TAG = BIT13 
TST = BITI2 
cc = B1T11 
CH = BIT10 
8809 = BITO9 
BB08 = BIT08 
8807 = BITO7 
BB06 = BIT 

BB05 = BITOS 
BB04 = BITO4 
BB03 = BITO3 
8802 = BITO2 


sMASK FOR CYLINDER ADDRESS 
:UNSED BITS OF RMDC 


PORT A REQUEST 
:PORT B REQUEST 
: TAG CONTROL 
NCE TEST BIT 


COMMAND SEQUE 
CONTROL OR CYLINDER TAG 
Brey OR HEAD TAG 


SEQ 0043 
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RM REGISTER BIT DEFINITIONS SEQ 0044 
878 000001 BB00 = BITO0 : TAG BUS 
tad ;*RMER2 ERROR REGISTER 2 
881 100000 BSE = BIT15 BAD SECTOR ERROR 
882 040000 SKI = BIT14 SEEK INCOMPLETE 
883 020000 OPE = BIT13 OPERATOR PLUG ERROR 
884 010000 Ivc = BIT12 ry | ID COMMAND E 
885 004000 LSC = BIT11 LOSS OF SYSTEM CLOCK 
886 002000 LBC = BIT10 OF BIT CLOCK 
887 000200 DVC = BIT07 DEVICE CHECK 
888 000010 DPE = BITO3 DATA PARITY ERROR 
pods 001567 XNUER2 = 001567 ;UNSED BITS OF RMER2 
a4) SBTTL PROGRAM MNEMONICS 
893 100000 MSE = BIT15 MANUFACTURING DETECTED SECTOR ERROR 
Boe 040000 USE = BIT14 USER DETECTED SECTOR ERROR 
aoe -SBTTL RM REGISTER INDEX VALUES 
898 000000 RMCS1 = 00 CONTROL STATUS REGISTER #1 
000006 RMDA = 06 DISK ADDRESS REGISTER 
900 000012 RMDS = 12 :DRIVE STATUS REGISTER 
901 000014 RMER1 = 14 ERROR REGISTER #1 
902 000016 RMAS = 16 sATTENTION SUMMARY REGISTER 
903 000020 RMLA = 20 LOOK AHEAD REGISTER 
000024 RMMRT == 24 ;MAINTENANCE REGISTER 
905 000026 RMDT = 26 DRIVE TYPE REGISTER 
000030 RMSN = 30 SERIAL NUMBER REGISTER 
907 000032 RMOF = 32 OFFSET REGISTER 
000034 RMDC = 34 DESIRED CYLINDER REGISTER 
000036 RMHR = 36 ;HOLDING REGISTER 
910 000040 RMMR2 == 40 MAINTENANCE REGISTER #2 
911 000042 RMER2 == 42 ERROR REGISTE 
912 000044 RMECT = 44 ECC POSITION REGISTER 
913 000046 C2 = 46 SECC PATTERN REGISTER 
916 000050 ILRG5O = 50 SILLEGAL REGISTER 50 
000052 ILRG52 = 52 ILLEGAL REGISTER 52 
000054 ILRG54 = 54 ILLEGAL REGISTER 54 
000056 ILRG56 = 56 ILLEGAL REGISTER 56 
ILRG6O = 60 ILLEGAL REGISTER 60 
000062 ILRG62 = 62 ILLEGAL REGISTER 62 
ILRG64 = 64 2 ILLEGAL REGISTER 64 
RG66 = 66 ILLEGAL REGISTER 66 
000070 ILRG70 = 70 ILLEGAL REGISTER 70 
000072 ILRG72 = 72 ILLEGAL REGISTER 72 
000074 ILRG74 = 74 ILLEGAL REGISTER 74 
7 000076 ILRG76 = 76 ILLEGAL REGISTcR 76 
918 
AN 000077 IDXMSK = 77 :MASK FOR REGISTER INDEX NUMBER 
a6t -SBTTL RH CONTROLLER REGISTER BIT DEFINITIONS 
352 :*RMCS1 CONTROL STATUS REGISTER #1 
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RH11/RH70 CONTROLLER REGISTER INDEX VALUES 
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RH CONTROLLER REGISTER BIT DEFINITIONS SEQ 0045 
925 100000 C = BIT15 4 ait: CONDITION-READ ONLY 
926 040000 TRE = BIT14 ; TRANSFER ERROR 
927 020000 MCPE = BIT13 ;MASSBUS CONTROL BUS PARITY ERROR=READ ONLY 
928 002000 PSEL = BIT10 ;PORT B SELECT 
929 001000 Al? = BITO9 sADDRESS EXTENSION 
' 930 00 A16 = BITO8 sADDRESS EXTENSION 
931 000200 RDY = BITO7 sREADY-READ ONLY 
ose 000100 IE = BIT06 : INTERRUPT ENABLE 
ote :*RMCS2 RH CONTROL STATUS REGISTER #2 
936 100000 DLT = BIT15 ;DATA_LATE=READ ONLY 
937 040000 WCE = BIT14 WRITE CHECK ERROR-READ ONLY 
938 020000 UPE = BIT13 ;UNIBUS PARITY ERROR 
939 010000 NED = BITI2 : TANT DRIVE-READ ONLY 
940 000 NEM = BIT11 NONEXISTANT MEMORY=-READ ONLY 
941 002000 PGE = BIT10 :PROGRAM ERROR-READ Y 
942 001000 MXF = BITO9 MISSED TRANSFER 
943 000409 MDPE = BITO8 :MASSBUS DATA BUS PARITY ERROR-READ ONLY 
944 000200 = BITO7 OUTPUT READY-READ ONLY 
945 000100 IR = BITO6 : INPUT READY-READ ONLY 
946 000040 CLR = BITOS ;CONTROLLER CLEAR 
947 000020 PAT = BITO4 sPARITY TEST 
948 000010 BAI = BITO3 :UNIBUS ADDRESS INCREMENT INHIBIT 
951 000004 U2 = BITO2 :UNIT SELECT 
000002 U1 = BITO1 UNIT SELECT 
952 000001 = BITOO UNIT SELECT 
953 UNIT SELECT MASK 
=7 UNIT SELECT MASK 
RH70 CONTROL STATUS REGISTER #3 
= BIT15 zsADDRESS PARITY ERROR 
960 = BIT14 [DATA PARITY ERROR HIGH WORD 
= BIT13 :DATA_PARITY ERROR LOW WORD 
= BIT12 WRITE CHECK ERROR HIGH WORD 
= B17") WRITE CHECK ERROR LOW WORD 
964 = BITIC ;DOUBLE WORD TRANSFER 
= BITO6 ; INTERRUPT 
966 = BITO3 Z INVERT PARITY CHECK 
= BITO2 INVERT PARITY CHECK 
968 = BITO1 : INVERT PARITY CHECK 
= BITOO : INVERT PARITY CHECK 
= 00 CONTROL, STATUS REGISTER #1 
= 02 ;WORD COUNT REGISTER 
= 04 BUS ADDRESS REGISTER 
= 10 :CONTROL, STATUS REGISTER #2 
= 22 ;DATA BUFFER 
= 50 BUS ADDRESS EXTENSION 
= 52 CONTROL, STATUS REGISTER #3 


176700 ;UNIBUS ADDRESS 


ma 
zm 





Se 
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RH11/RH70 CONTROLLER REGISTER INDEX VALUES SEQ 0046 
oot 120254 AVECT1 = 120254 ;UNIBUS VECTOR ADDRESS AND PRIORITY 
386 -SBTTL TRAP CATCHER 
000000 


=0 
;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.+2,HALT’’ 
7*LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


' 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
000174 = 
000174 000000 DISPREG: .WORD 0 ;:SOFTWARE DISPLAY REGISTER 
000176 000000 SWREG:  .WORD 0 ;;SOFTWARE SWITCH REGISTER 
-SBTTL STARTING ADDRESS(ES) 
gg7 000200 000137 004626 JMP = @MSTART ;;JUMP TO STARTING ADDRESS OF PROGRAM 
988 -SBTTL ACT11 HOOKS 
FREER RRR KEKE ERE ERE EERE EERE EE KEKE EREKEEREE 
;HOOKS REQUIRED BY ACT11 
000204 $SVPC=. :SAVE PC 
000046 =46 
000046 054026 SENDAD :31)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
000052 000000 “WORD 0 ::2)SET LOC.52 TO ZERO 
-_ 000204 -=SSVPC i: RESTORE P 
990 001100 =1100 
991 -SBTTL APT PARAMETER BLOCK 
SAAR AERA KEEREEREEREKKKKEKEK 
:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
FERRARA EKEKEKEKEE 
001100 »$X=.  ;;SAVE CURRENT LOCATION 
000024 s=24  ;;SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200, =: 3FOR APT START UP 
000044 gan {POINT TO APT INDIRECT ADDRESS PNTR. 
000044 001100 SAPTHDR ;:POINT TO APT HEADER BLOCK 
001100 =.$X —;;RESET LOCATION COUNTER 
2% :RRERRERRRERRRR REE EE EERE EERE EER EERE RRR EERE EERE 
SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 
001100 SAPTHD : 
001100 SHIBTS: .WORD 0 ::TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
001102 001222 SHBADR: WORD $MAIL ADDRESS OF APT MAILBOX (BITS 0-15) 
001104 1 $TSTM: .WORD 1 UN TIM OF LONGEST TEST 
001106 000002 SPASTM: .WORD 2 RN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
001110 000002 SUNITM: .WORD 2 TIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 
gop 001112 900040 racapre “MOP SETEND-SMAIL/2 s:LENGTH MATLBOX-ETABLE (WORDS) 





ss 
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COMMON TAGS 


SEQ 0047 ERI 
0 -SBTTL COMMON TAGS 
FERRARA EEEREEEEEERKEKEEEREREAKREREEEEEEEEREREEREKREEEEE 
SATHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM, 
001114 - =TAGADR 
001114 SCMTAG: zSTART OF COMMON TAGS 
001114 000000 WORD QO 
001116 000 STSTNM: .BYTE 0 3-CONTAINS THE TEST NUMBER 
001117 000 SERFLG: .BYTE Q ::CONTAINS ERROR FLAG 
001120 000000 SICNT: . 0 2 sCONTAINS SUBTEST ITERATION COUNT 
001122 (00000 $LPADR: .WORD 0 ::CONTAINS SCOPE LOOP ADDRESS 
001124 000000 SLPERR: .WORD 0 CONTAINS SCOPE RETURN FOR ERRORS 
001126 000000 SERTTL: . 0 3;CONTAINS TOTAL ERRORS DETECTED 
001130 000 SITEMB: .BYTE 0 :-CONTAINS ITEM CONTROL BYT Ges 
001131 001 SERMAX: .BYTE 1 ;:CONTAINS MAX. ERRORS PER 
001132 000000 SERRPC: .WORD 0 3:CONTAINS PC OF LAST ERROR INSTRUCTION 
001134 000000 $SGDADR: .WORD 0 ::CONTAINS ADDRESS OF ‘GOOD’ DAT 
001136 000000 $BDADR: .WORD 0 += CONTAINS ADDRESS OF "BAD" DATA 
001140 000000 SGDDAT: .WORD 0 ::CONTAINS ° DATA 
001142 000000 SBDDAT: .WORD 0 ::CONTAINS ‘BAD’ DATA 
001144 000000 -WORD QO ; sRESERVED--NOT TO BE USED 
001146 000000 -WORD QO 
001150 000 $AUTOB: .BYTE 0 ; AUTOMATIC MODE INDICATOR 
oorie> 000 SINTAG gk | 8 32 INTERRUPT MODE INDICATOR 
001154 177570 SWR : -WORD ODS : ADDRESS OF SWITCH REGISTER 
001156 177570 DISPLAY: .WORD DDISP : ADDRESS OF wa REGISTER 
001160 177560 $TKS: 177560 eeTTy KBD STATUS 
001162 177562 $TKB: 177562 . : TTY KBD BUFFER 
001164 177564 $TPS: 177564 ::TTY PRINTER STATUS REG. ADDRESS 
001166 177566 $TPB: 177566 ; 2: TTY PRINTER BUFFER REG. cae Tit 
001170 000 $NULL: .BYTE 0 23 CONTAINS NULL CHARACTER FOR FILLS 
001171 002 $SFILLS: .BYTE 2 CONTAINS # OF 4 Ase gee waere 
001172 012 $SFILLC: .BYTE 12 33 INSERT FILL CHARS. AFTER A ‘L D** 
001173 000 STPFLG: .BYTE 0 ;""TERMINAL AVAILABLE'’ FLAG. (BiT<O7>= =0=YES) 
001174 000000 STMPO: .WORD 0 7ZUSER DEF INED 
001176 000000 STMP1: .WORD 0 :sUSER DEFINED 
001200 000000 STMP2: .WORD 0 :sUSER DEFINED 
001202 000000 STMP3: .WORD 0 7 USER DEFINED 
001204 000000 STMP4: .WORD 0 ; USER DEF INED 
001206 000000 STIMES: 0 3 sMAX. NUMBER OF ITERATIONS 
001210 000000 SESCAPE :0 32ESCAPE ON ERROR ADDRESS 
001212 207 377 377 $BELL: .ASCIZ <207><377><377> CODE FOR BELL 
001216 077 $QUES: .ASCII 33 TION MARK 
001217 015 SCRLF : ASCII <i5> 2s CARRIAGE RETURN 
001220 012 000 SLF: eASCIZ <12> LINE FEED 
j RRRRARRRRRRRRERR ERR EE EERE RRER ERR EERE ERR 
* SBTTL APT MAILBOX~E TABLE 
FFARR REEREAEREREKEEREEREEEEEEEREREEEEEEREEEEE EE 
. EVEN 
001222 SMAIL: MAILBOX 
001222 000000 SMSGTY: .WORD AMSGTY i MESSAGE TYPE CODE 
001224 000000 SFATAL: .WORD AFATAL S TRATAL ERROR NUMBER 
001226 000000 STESTN: .WORD ATESTN ;;TEST NUMBER 
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APT MAILBOX~€ TAB) SEQ 0048 


WORD APASS_ ;;PASS COUNT 


ASS: . 
SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 
IT: .WORD AUNIT = ;;1/0 UNIT R 
SMSGAD: .WORD AMS 3;MESSAGE ADDRESS 
GLG: .WORD AMSGLG ;;MESSAGE LE 
SETABLE 3:APT ENVIRONMENT TABLE 
-BYTE AENV fh cd a af 8 


SENVM: BYTE AENVM  ::ENVIRONMENT MODE BITS 
SSWREG: .WORD ASWREG ::APT SWITCH REGISTER 
SUSWR: - WORD AUSWR FUSER SWITCHES 


$CPUOP: .WORD  ACPUOP YPE -OPTION 

:* BITS S11 SCU T 

:* 1704201 611/05= 02.11/20=03,11/40=04,11/45=05 

:* 11/90: =07,0=10 

i* BIT 10=REAL TIME CLOCK 

i* BIT 9=FLOATING POINT PROCESSOR 

:* BIT 8=MEMORY MANAGEMENT 

$MAMS1: .BYTE AMAMS1 ;:HIGH ADDRESS,M.S. BYTE 

SMTYP1: :BYTE AMTYP1 ::MEM. TYPE,BLKAi 

:* MEM.TYPE BYTE =~ (HIGH BYTE) 

* EC CORE=001 

z* 300 NSEC BIPOLAR=002 

:* 300 NSEC MOS=005 

SMADR1: .WORD AMADR1 ;;HIGH ADDRESS, BLK# - 

:* MEM-LAST ADDR.=3 BYTES, THIS WORD AND LOW OF “"TYPE'* ABOVE 
2: .BYTE AMAMS2 ;;HIGH ADDRESS.M.S. BYTE 


SMAMS2: 

SMTYP2: .BYTE AMTYP2 :;MEM.TYPE,BLKA2 
SMADR2: .WORD AMADR2 ;:MEM.LAST ADDRESS .BLKA2 
SMAMS3: .BYTE AMAMS3 ;:HIGH ADDRESS,M.S.BYTE 
SMTYP3: .BYTE AMTYP3 2 7MEM. TYPE ,BLKA3 

SMADR3: .WORD AMADR3 ;;MEM.LAST ADDRESS,BLK#3 
SMAMS4: .BYTE AMAMS4 ;:HIGH = wy ty -S.BYTE 


SMTYP4: .BYTE AMTYP4 ;;MEM.TYPE, 
R4: .WORD AMADR4 ;;MEM.LAST ADDRESS,BL 
SVECT1: .WORD AVECT1 ;; INTERRUPT VECTOR#1,BUS PRIORITY#1 
SVECT2: .WORD AVECT2 ;; INTERRUPT VECTOR#2BUS PRIORITYA2 
E: .WORD ABASE + :BASE ADDRESS OF EQUIPMENT UNDER TEST 
SDEVM: .WORD ADEVM VICE MAP 
$CDW1: .WORD ACDW1 ; : CONTROLLER DESCRIPTION WORDA1 
$CDW2: .WORD ACDW2 ;;CONTROLLER DESCRIPTION WORD#2 
DWO: .WORD D :;DEVICE DESCRIPTOR 
SDDWi: .WORD ADDW1 ;;DEVICE DESCRIPTOR WORD#1 
$DDW2: .WORD ADDW2 ;;DEVICE DESCRIPTOR WORDA#2 
SDDW5: .WORD ADDW3 ;;DEVICE DESCRIPTOR WORD#3 
DDW4: .WORD ADDW4 ;;DEVICE DESCRIPTOR WORDA4 
$DDWS: .WORD ADDWS5 2 sDEVICE DESCRIPTOR WORDAS 
SDDW6: .WORD ADDW6 ;;DEVICE DESCRIPTOR WORD#6 
ret -WORD ADDW?  ;:DEVICE DESCRIPTOR WORDA7 
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USER DEFINED T 
0 
001326 


001330 
001331 
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-SBTTL USER DEFINED TAGS 


XXDP: .WORD 
LSTRK: .BYTE 
«BYTE 


0 


0 
0 


;THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 
;THE PROGRAM WAS LOAD THE HIGH BYTE CONTAINS THE 
iT XNDP” DEVICE CODE FOR THE RM05/3/2. 


Y 
HI BYTE, CONTAINS ee TRACK a OF UNIT 
SUNDER TEST. RMO2/3 = 4., RMOS = 18. 


THE REGISTER INPUT BUFFER IS USED FOR 


:STORING DRIVE STATUS 


GE TBUF : 


s:REGISTER INPUT BUFFER 
RMCS1I 


1 WORD 

I: .WORD 

I: .WORD 

AI: .WORD 
RMCS2I: .WORD 
RMDSi: .WORD 
RMER1I: .WORD 
RMASI: .WORD 
RMLAI: .WORD 
RMDBI: .WORD 
RMMR1I: WORD 
RMDTI: .WORD 
RMSNI: .WORD 
RMOFI: .WORD 
RMDCI: .WORD 
RMHRI: .WORD 
RMMR2I: .WORD 
RMER2I: .WORD 
RMEC1I: .WORD 
waste wend 
RMCS3I: .WORD 


SOOooooooooooooooooooooO 


CONTROL, STATUS REGISTER #1 
WORD COUNT REGIST 


ER 

BUS ADDRESS REGISTER 

DISK ADDRESS REGISTER 
CONTROL, STATUS REGISTER #2 
z:DRIVE STATUS REGISTER 

ERROR REGISTER #1 
sATTENTION SUMMARY REGISTER 
;LOOK AHEAD REGISTER 


;DATA_BUFFER 
MAINTENANCE REGISTER #1 
DRIVE TYPE REGISTER 

: SERIAL on 


E 

OFFSET REG 
; DESIRED CYLINDER REGISTER 
amin 


MAINTENANCE uae #2 


TER 
DRESS EXTENSION REGISTER 
CONTROL. STATUS REGISTER #3 


3 THE REGISTER OUTPUT BUFFER IS USED FOR 
sASSEMBLING DATA GOING TO REGISTER 


PUTBUF : 
;REGISTER OUTPUT BUFFER 
RMCS10: .WORD 0 
RMWCO: WORD 0 
: .WORD 0 
AO: .WORD OQ 
RMCS20: .WORD 0 
SO: .WORD 0 
RMER10: .WORD 0 
RMASO: .WORD 0 
RMLAO: .WORD 0 
RMDBO: .WORD 0 
RMMR10: .WORD 0 
RMDTO: .WORD QO 
RMSNO: .WORD 0 


:CONTROL, STATUS REGISTER #1 
SWORD COUNT REGISTER 
[BUS ADDRESS REGISTER 
:D1Sk ADDRESS REGISTER 

ON STATUS REGISTER #2 
“DRIVE STATUS REGISTER 

ROR RE 


A 
;MAINTENAN cf REGISTER #1 
sDRIVE TYPE REGISTER 
SERIAL NUMBER REGISTER 
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USER DEFINED TAGS 


001440 000000 RMOFO: .WORD 0 
001442 000000 RMDCO: .WORD 0 

000000 O: .WORD 0 
001446 000000 20: .WORD 0 
001450 000000 RMER2O: .WORD 0 
001452 000000 RMEC1O: .WORD 0 

000000 RMEC20: .WORD 0 
001456 000000 EO: .WORD 0 
001460 000000 RMCS30: .WORD 9 
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sOF FSET REGISTER 
DESIRED CYLINDER REGISTER 
7H REGISTER 


TER 
BUS ADDRESS EXTENSION REGISTER 
:CONTROL, STATUS REGISTER #3 


sEACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN 
By 3 LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE 
FIRST WORD ‘ayy A * wry ¥ OF THE DEVICE UNDER TEST 


HIN THE TABLE. A 
:END OF THE QUE. 


001462 000000 TSTQUE : ‘is 4 
001504 000000 -WORD 0 
001506 172540 SLPCSR: .WORD 172540 
001510 172542 $LPCSB: .WORD 172542 
001512 000104 SLPVEC: .WORD 104 
001514 000106 -WORD 106 
001516 177546 $LLCSR: .WORD 177546 
001520 000100 S$LLVEC: .WORD 100 
001522 000102 «WORD 102 
001524 000000 $PSW - WORD 
001526 000000 TIME - WORD 

30 000000 WATCH: .WORD 
001532 000000 CLOCK: .WORD 

000000 - WORD 


PUT TAGS HERE 


A BLANK AND REPRESENTS THE 


ue Pee ce POINTER 
TEST QUE FOR D 


ZALL 8. DEVICES ARE UNDER TEST. 


KW11-P CONTROL + STATUS REGISTER 
KW11-P COUNT SET BUFFER 
KWIT=P INTERRUPT VECTOR 


zKW11-L CONTROL + STATUS REGISTER 
:KW11-L INTERRUPT VECTOR 


STORAGE FOR PRIORITY 
STORAGE FOR ELAPSED TIME 
STORAGE FOR REMAINING TIME 
ADDRESS OF START CLOCK SUB 
zADDRESS OF STOP CLOCK SUB 


SEQ 0050 


CZ 


—_-——_-—— 
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0 


WN 


us 


001556 063544 
001560 


071520 
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-SBTTL ERROR POINTER TABLE 
:*THIS i THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 


ORMATION IS OBTAINED BY USING 


* THE THE INDEX NUMBER FOUND IN 
:sLOCATION mes THIS NUMBER INDICATES WHICH ITEM IN THE Hay = # PERTINENT. 


+t 
 *NOTE2: 


ase 8 


SERRTB: 


; ERROR 


ERROR 


ERROR 


; ERROR 


; ERROR 


F SITEMB IS 0 THE ONLY PERTINENT DATA IS (SER 


EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


3:POINTS TO THE ERROR MESSAGE 
2;POINTS TO THE DATA HEADER 
33 THE DATA 


::POINTS TO THE DATA FORMAT 


CANNOT CLEAR NED STATUS 


CANNOT READ OR WRITE ANY DEVICE REG WITHOU? NED 


CANNOT WRITE/READ ONES TO ANY DEVICE REGISTER 


CANNOT CLEAR ANY DEVICE REGISTER BITS W/MASSBUS INIT 


CANNOT WRITE/READ ZEROS TO ALL BIT POSITIONS 






CANNOT WRITE/READ ONES TO ALL BIT POSITIONS 


SEQ 0051 


CZ 
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063632 
071376 
071472 
071520 


063676 
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; ERROR 


; ERROR 


; ERROR 


; ERROR 


s ERROR 


; ERROR 


ERROR 


CANNOT WRITE/READ SHIFTING ONE BIT TO ALL BIT POSITIONS 
OF DEVICE REGISTERS 


REGISTER SELECT 1 APPEARS S-A-0 


REGISTER SELECT 7 APPEARS S-A-1 


REGISTER SELECT 2 APPEARS S-A-0 


s 


REGISTER SELECT 2 APPEARS S-A~1 


REGISTER SELECT 4 APPEARS S-A-0 


REGISTER SELECT 4 APPEARS S~A~1 


SEQ 0052. 


CI 
ERI 


CZRMPAQ we te bek My 1 oe TST 1 
ERROR POINTER T 





s ERROR 


; ERROR 


Zs ERROR 


Zs ERROR 


; ERROR 


ERROR 


ERROR 


EMT17 
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REGISTER SELECT 8 APPEARS S-A-0 


REGISTER SELECT 8 APPEARS S-A-1 


CANT WRITE ZEROS RMDA 


CANT WRITE ONES RMDA 


BIT INTERFERENCE IN WRITING/READING RMDA 


CANT WRITE ZEROS RMCS1 


CANT WRITE ONES RMCS1 





CZRMPAQ ptt ahek My TST 1 
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302 
071366 
071466 
071514 


;ERROR 


; ERROR 


ZERROR 


ERROR 


sERROR 


ERROR 


; ERROR 
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BIT INTERFERENCE IN WRITING/READING RMCS1 


MBA CLR L IS STUCK ACTIVE 


CANNOT CLEAR RMER1-PAR,RMR,ILF.ILR 


CANNOT CLEAR RMER1-DCK, IAE AOE ,HCRC HCE ,ECH, WCF FER 


CANNOT CLEAR RMER1-OPI ,DTE 


CANNOT WRITE 0 IN RMER1-PAR,RMR,ILFILR 


CANNOT WRITE 0 IN RMER1~DCK,IAE AOE ,HCRC HCE .ECH. WCF FER 





SEQ 0054 


4 


ma 
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ERROR POINTER T SEQ 0055 
002060 07 EHT1 
002062 071 EDT 
002064 071514 EFT 

83 
ae sERROR 34 CANNOT WRITE 0 IN RMER1-OPI ,DTE 
064334 EMT34 
002070 071366 EHT1 
002072 071466 EDT1 
002074 071514 EFT1 
86 
87 sERROR 35 CANNOT WRITE 1 IN RMER1 
002076 064352 EMT35 
00 071366 EHT1 
002102 071466 EDT1 
04 071514 EFT1 
89 
eS sERROR 36 CANNOT WRITE SHIFTING 1 IN RMER1 
002106 064366 EMT36 
002110 071366 EHT1 
002112 071466 EDT1 
002114 071514 EFT1 
92 
<4 ERROR 37 CANNOT WRITE ZEROS IN RMDC 
002116 064402 EMT37 
002120 071366 EHT1 
002122 0714 EDT1 
002124 071514 EFT1 
95 
oe sERROR 40 CANNOT WRITE ONES IN RMDC 
002126 064416 EMT40 
071 EHT1 
002132 071466 EDT1 
2134 071514 EFT1 
98 
4 ERROR 41 BIT INTERFERENCE IN WRITING/READING RMDC 
002136 064436 EMT41 
002140 071366 EHT1 
002142 071466 EDT1 
002144 071514 EFT1 


101 
106 sERROR 42 CANNOT WRITE 1°S IN RMDC OR RMDA 





ma 
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2 DSKLS TST 1 
ERROR POINTER TABLE 


; ERROR 


; ERROR 


ERROR 


ERROR 


;ERROR 


ERROR 


; ERROR 
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CANNOT CLEAR RMCS1=FUNCTION CODE 


UNUSED BITS OF RMER2 NOT ZERO 


CANNOT CLEAR RMER2-OPE,IVC,LSC 


CANNOT CLEAR RMER2=LBC ,DPE 


CANNOT WRITE ZEROS RMER2-OPE,IVC,LSC 


CANNOT WRITE ZEROS RMER2=LBC ,DPE 


CANNOT WRITE ONES RMER2 
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002244 071514 
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; ERROR 


; ERROR 


ZERROR 


ERROR 


z ERROR 


; ERROR 


Zs ERROR 


EFT 


CANNOT 


UNUSED 


CANNOT 


CANNOT 


DEVICE 


DEVICE 


WRITE SHIFTING ONES RMER2 


BITS OF RMOF ARE NOT ZERO 


WRITE ZEROS RMOF-FMT,ECI,HCI,OFD 


WRITE ONES RMOF-FMT,ECI,HC1.OFD 


WRITE SHIFTING ONES RMOF 


IS NOT AN RMO05/3/2 


AVAILABLE IS NOT SET 


SEQ 0057 


Mma 
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071466 


071466 
071514 


065050 
071366 
071466 
071514 
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sERROR 


; ERROR 


; ERROR 


;ERROR 


; ERROR 


; ERROR 


sERROR 


CANNOT WRITE ZEROS RMHR 


CANNOT WRITE ONES RMHR 


CANNOT WRITE SHIFTING ONES RMHR 


CANNOT CLEAR ILR STATUS 


ILR ERROR SHOULD NOT BE SET 


ILR ERROR SHOULD BE SET 


CANNOT CLEAR PAR STATUS-DPE IS RESET 





SEQ 0058 
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071502 
071530 


071514 


; ERROR 


; ERROR 


; ERROR 


z ERROR 


Zz ERROR 


: ERROR 


ERROR 
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SEQ 0059 


CANNOT CLEAR PAR AND DPE STATUS 


"'PAR’’ ERROR SHOULD NOT BE SET~’PAT'' IS OFF 


“PAR'' ERROR SHOULD BE SET-'PAT'' IS ON 


"MCPE"’ ERROR SHOULD NOT BE SET 


UNEXPECTED BUS TIMEOUT 


CANT CLEAR ‘DMD"’ 


CANT WRITE ZERO ‘DMD"’ 


CZRMPAOQ wee te ‘at TST 1 
ERROR POINTER T 


071514 


065352 
071366 


071466 
071514 


071514 
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; ERROR 


s ERROR 


; ERROR 


; ERROR 


ERROR 


; ERROR 


; ERROR 


;ERROR 


100 


101 


102 
EMT102 
EHT1 
EDT1 
EFT1 


103 
EMT103 


104 


105 


CANT WRITE ONE ‘DMD"' 


DMD SET BY WRONG BIT 


CANT CLEAR ‘MOL"' IN DIAGNOSTIC MODE 


CANT SET ‘MOL’ IN DIAGNOSTIC MODE 


"MUR’’ SET BY WRONG BIT 


CANT RESET ‘WRL'' IN DIAGNOSTIC MODE 


CANT SET *WRL*’ IN DIAGNOSTIC MODE 


*MWP’’ SET BY WRONG BIT 





SEQ 0060 


ma 


Tia. 
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071466 
071514 


065604 
071366 
071466 
071514 


071514 


ERROR 


ERROR 


; ERROR 


; ERROR 


; ERROR 


ERROR 


7 ERROR 


110 


111 
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SEQ 0061 


CANT RESET 'DVC’* USING 'MDVC'' 


"DVC'' IS RESET BUT ‘UNS'’ IS SET 


"DVC'' IS SET BUT ‘'UNS'' IS NOT SET 


CANT SET *DVC’* USING MDVC"" 


"DVC’' IS RESET BUT ‘UNS'’ IS SET 


"DVC'’ IS SET BUT ‘UNS'' IS NOT SET 


"MDF'* IS SET BY WRONG BIT 


CZRMPAO wee thee 1 es TST 1 





ERROR POINTER T 
002676 065652 EMT115 
002700 071426 EHT115 
002702 071504 EDT115 
002704 071532 EFT115 

233 
Ste sERROR 116 
002706 065676 EMT116 
002710 071 EHT1 
002712 071466 EDT1 
002714 071514 EFT1 
236 
237 ERROR 117 
238 
002716 065716 —MT117 
002720 071366 EHT1 
002722 071466 EDT1 
002724 071514 EFT1 
239 
sif sERROR 120 
002726 065736 EMT120 
2730 071426 EHT115 
002732 071504 EDT115 
2734 071532 EFT115 
242 
243 zERROR 121 
244 
002 065762 EMT121 
002740 071366 EHT1 
002742 071466 EDT1 
002744 071514 EFT1 
245 
246 zERROR 122 
247 
002746 2 EMT122 
002750 071366 EHT1 
002752 071466 EDT1 
002754 071514 EFT1 
248 
249 sERROR 123 
250 
002756 066022 EMT123 
271 071426 EHT115 
002762 071504 EDT115 
002764 071532 EFT115 
251 
252 sERROR 124 
253 
002766 066046 EMT124 
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CANT RESET ''SKI'' USING 'MSER"' 


CANT SET *'SKI"' USING 'MSER'’ 


"SKI'' SET BY WRONG BIT 


CANT RESET 'PIP’’ USING *MOC"’ 


CANT SET *PIP*’ USING *™MOC"’ 


"MOC’' SET BY WRONG BIT 


CANT CLEAR ‘BL"' 


SEQ 0062 


Ci 
EF 


CZRMPAO wee te FY ae TST 1 
ERROR POINTER T 


002770 071366 


002772 
002774 





071466 
071514 


066064 
071366 
071466 
071514 


066104 
071366 
071466 
071514 


066122 
071426 
071504 
071532 





Lo 
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; ERROR 


; ERROR 


; ERROR 


7 ERROR 


; ERROR 


ERROR 


ERROR 


126 


130 


EFT130 


131 
EMT131 


EMT133 
EHT132 


“EBL'' NOT ZERO IN DIAGNOSTIC MODE 


CANT SET ‘'EBL'’ USING ‘DEBL'' 


"DEBL'’ SET BY WRONG BIT 


"LS'* NOT CORRECT ACCORDING TO RMDA 


"LST'' NOT CORRECT ACCORDING TO RMDA 


CANNOT INCREMENT SECTOR ADDRESS USING ‘DEBL"' 


CANNOT INCREMENT TRACK ADDRESS USING ‘DEBL'' 


SEQ 0063 


Ci 


003064 


CZRMPAO RMOS/3/2 1 tee TST 1 
ERROR POINTER TABLE 


003062 a 510 


71536 


Ovtsie 


066256 
071366 
071466 
071514 


066274 
71366 


71466 
071514 


066306 
071366 
071466 
071514 





; ERROR 


; ERROR 


7 ERROR 


; ERROR 


7 ERROR 


ERROR 


134 


140 
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UNUSED BITS OF RMDC NOT ZERO 


"VV" NOT RESET BY UNIT READY 


SERIAL NUMBER IS INCONSISTENT 


CANT CLEAR ''GO’’ BIT 


CANT INCREMENT CYLINDER USING ‘DEBL"’ 


CANT RESET 'LBT'' BY WRITING RMDA 





CANT SET ‘BT’ USING ‘DEBL** 


SEQ 0064 


C2 






N 5 
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CZRMPAO a rsh k ie TST 1 


ERROR POINTER T SEQ 0065 | 


003154 071536 EFT132 
296 
344 sERROR 143 CANT READ ZERO FROM COMP ERROR 
003156 066376 EMT143 
003160 071366 EHT1 
003162 071466 EDT1 
003164 071514 EFT1 
299 
~ sERROR 144 CANT SET COMP ERROR WITH RMER1 OR RMER2 
2 EMT144 
003170 071366 HT1 
003172 071466 EDT1 
003174 071514 EFT1 
302 
4 ERROR 145 COMP ERROR DID NOT SET 
003176 066434 EMT145 
00 071446 EHT145 
003202 071506 EDT130 
003204 071534 EFT130 
305 
306 ERROR 146 CANT SET ''GO'' BIT 
307 > 


003206 066456 EMT146 : 
003210 071366 EHT1 
003212 071466 EDT1 
003214 071514 EFT1 
308 
44 , ERROR 147 CANT READ A ONE FROM ‘'TST'' 
003216 066474 EMT147 
003220 071366 EHT1 
003222 071466 EDT1 
003224 071514 EFT1 
311 
35 ERROR 150 "'TST'' IS INCORRECT FOR THE FUNCTION CODE 
003226 066506 EMT150 
003230 071452 EHT150 
003232 071504 EDT115 
003234 071532 EFT115 


CANT SET THE *'GO"' BIT 





CZRMPAO ite thee 1 tee TST 1 
ERROR POINTER T 


066656 
071366 
071466 
071514 


066674 
071452 
071504 
071532 


; ERROR 


; ERROR 


ERROR 


sERROR 


7 ERROR 


; ERROR 


;ERROR 





153 


154 


157 
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"DRY"* NOT THE COMPLEMENT OF ‘'GO"' 


"GO"" RESET EARLY 


""GO"' DIDNT RESET ON TIME 


CANT CLEAR CONTINUE 


CONTINUE IS INCORRECT FOR THE FUNCTION CODE 


CANT CLEAR IVC 


IVC IS INCORRECT FOR THE FUNCTION CODE 


ma 


CZRMPAO wwe ste Ay es TST 1 MACRO VO3.01 11-APR-80 13:58:55 PAGE 7-16 
ERROR POINTER T 





071514 


066760 
071366 
071466 
071514 


067002 
071366 


071466 
071514 


067024 


07 
071514 


; ERROR 


ERROR 


; ERROR 


; ERROR 


; ERROR 


7 ERROR 


ERROR 


161 


EMT161 


163 


165 


167 


CANT CLEAR LSC 


CANT SET LSC 


COMMAND DECODE WAS ENABLED WiTH COMP ERROR SET 


COMMAND DECODE WAS ENABLED WITH COMP ERROR SET 


DECODE DOES NOT SET 


CANT CLEAR OCCUPIED 


ILF SET WITHOUT GO BIT 


SEQ 0067 
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CZRMPAOQ ere 5 eee TST 1 





ERROR POINTER T 
by ERROR 170 CANT SET VOLUME VALID 
003426 067112 EMT170 
3430 071452 EHT150 
003432 071504 EDT115 
003434 071532 EFT115 
38 ERROR 171 ILF IS INCORRECT 
3436 067124 —MT171 
003440 071452 EHT150 
003442 071504 EDT115 
003444 071532 EFT115 
365 
9] sERROR 172 CANT SET OFFSET DIRECTION BIT 
003446 067149 EMT172 
003450 071366 EHT1 
003452 071466 EDT1 
003454 071514 EFT1 
368 
368 ERROR 173 OCCUPIED IS INCORRECT FOR FUNCTION CODE 
003456 067156 EMT173 
003460 Rolent EHT150 
003462 071504 EDT115 
071532 EFT115 
371 
36 ERROR 174 READ IN PRESET DIDNT CLEAR RMDA, RMDC OR RMOF 
003466 067200 EMT174 
003470 000000 0 
003472 000000 0 
003474 000000 0 
374 
2] ERROR 175 READ IN PRESET DIDNT CLEAR RMOF 
003476 067226 EMT175 
3506 071366 EHT1 
003502 071466 EDT1 
35 071514 EFT1 
377 
ie ERROR 176 READ IN PRESET DIDNT CLEAR RMDA 
005506 067244 EMT176 
003510 071366 EHT1 
003512 071466 EDT1 
003514 071514 EFT1 
380 
381 ERROR 177 READ IN PRESET DIDNT CLEAR RMDC 


SEQ 0068 





E 6 
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ERROR POINTER T 
382 
003516 067262 EMT177 
003520 071366 EHT1 
003522 071466 EDT1 
003524 071514 EFT1 
383 
384 ERROR 200 CANT SET OFFSET MODE BY OFFSET COMMAND 
003526 067300 EMT 200 
35 71 EHT1 
003532 071466 EDT1 
35 071514 EFT1 
386 
4 ERROR 201 CANT RESET OFFSET MODE BY RTC COMMAND 
003536 067316 EMT201 
003540 071366 EHT1 
003542 071466 EDT1 
003544 071514 EFT1 
389 
oF ERROR 202 CANT RESET OFD BY RTC COMMAND 
003546 067334 EMT202 
003550 071366 EHT1 
003552 071466 EDT1 
003554 071514 EFT1 
392 ; 
2 ERROR 203 CANT RESET OM BY RMDC 
003556 067352 EMT203 
35 071366 EHT1 
003562 071466 EDT1 
35 071514 EFT1 
395 . 
38 ZsERROR 204 CANT RESET OM BY EBL 
35 067374 EMT204 
003570 071 EHT1 
003572 071466 EDT1 
003574 071514 EFT1 
398 
in ERROR 205 RUN AND GO NOT CORRECT FOR FUNCTION CODE 
003576 7414 EMT205 
3600 071452 EHT150 
003602 071504 EDT115 
003604 071532 EFT115 
401 
402 ERROR 206 CANT SET IAE ERROR 





SEQ 0069 


an 


CZRMPAO wel te ‘af TST 1 


ERROR POINTER T 





067434 
000000 


000000 
000000 


067464 
071452 
071504 
071532 


071532 


067576 
071456 
071504 
071532 


067610 
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; ERROR 


; ERROR 


; ERROR 


: ERROR 


ERROR 


; ERROR 


; ERROR 


EMT 206 
0 


0 
0 


207 
EMT207 


212 


215 
EMT215 


IAE IS INCORRECT FOR FUNCTION CODE 


IAE IS INCORRECT FOR RMDA 


IAE IS INCORRECT FOR RMDC 


CANT SET AOE 


RMR SET WHEN WRITING RMAS OR RMCS 


CANT SET RMR 


DRQ IS 0 AND PGM IS 1 


SEQ 0070 


“vo 


003700 
003702 
003704 





CZRMPAO RMOS/3/2 ’ oe TST 1 
ERROR POINTER TABL 


071366 
071466 
071514 


071466 


071540 


067750 
071366 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


ERROR 


217 


220 


EFT220 


221 
EMT 221 


EFT220 


222 
EMT 222 


EFT220 


223 
EMT 223 


EFT220 


224 


gmt gee 
EHT1 
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SEQ 0071 


DVA IS NOT SET 


DPR IS NOT SET 


CANT SET PORT REQUEST BY READING RMCS1 


CANT SET PORT REQUEST BY WRITING RMAS 


CANT SET PORT REQUEST BY WRITING RMDA 


CANT RESET PORT REQUEST BY RELEASE COMMAND 


CANT CLEAR ATA BY RMAS 


“va 








CZRMPAO wa rahe hs Ay TST 1 
ERROR POINTER T 


071466 
071514 


071514 


070030 
071366 
071466 
071514 


071514 


070100 
pe lene 
071504 
071532 


MACRO V03.01 11-APR-80 


; ERROR 


ERROR 


; ERROR 


; ERROR 


; ERROR 


ZERROR 


7 ERROR 


225 


226 


227 


230 


233 


EMT 233 
EHT150 


H 6 
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ATA IS RESET BUT RMAS NOT ZERO 


CANT RESET ATA BY GO 


ATA NOT SET BY UNIT READY 


ATA NOT SET BY UNIT READY 


ATA NOT SET BY COMP ERROR 


ATA SET/DID NOT SET WHEN REGISTER WRITTEN 
WHILE COMP ERROR WAS SET 


ATA NOT SET BY COMMAND SEQUENCER 


SEQ 0072 


AN 


004062 
004064 


MmMMN— 
SNOO 


CZRMPAOQ wees ie” TST 1 
ERROR POINTER T 


071504 
071532 


070144 
071452 
071504 

071532 


070172 
071366 
071466 
071514 


070212 


071532 


070244 
071366 
071466 
071514 


070244 
Rl eAy 
071504 
071532 


ores 


71366 
O71466 
071514 


;ERROR 


; ERROR 


; ERROR 


; ERROR 


; ERROR 


ERROR 








236 


EFT115 


237 
ones? 


240 


242 
EMT 242 
EHT1 
EDT1 
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WLE INCORRECT ACCORDING TO FUNCTION CODE 


CANT CLEAR EXCEPTION 


CANT SET EXCEPTION 


CANT CLEAR IVC 


CANT SET IVC 


OPI NOT SET DURING RECALIBRATE 


RECALIBRATE DID NOT ABORT WHEN DRIVE FAULT SET 


SEQ 0073 


AN 


004154 





CZRMPAO a the h yy ae TST 1 
ERROR POINTER T 


071514 


071514 


070440 
071366 
071466 
071514 


; ERROR 


; ERROR 


; ERROR 


ERROR 


; ERROR 


; ERROR 


; ERROR 





MACRO V03.01 11-APR-80 


EFT 


243 


EMT243 
EHT1 


245 


246 


247 


251 


EMT251 
EHTi 


J 6 
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OPI SHOULD HAVE SET BECAUSE ON CYLINDER NEVER 
DROPPED DURING RECAL IBRATE 


ATA NOT SET DURING RECALIBRATE 


GO RESET EARLY DURING RECALIBRATE 


GO NOT RESET DURING RECALIBRATE 


INCORRECT TAG BUS DURING RECALIBRATE 


OPI SHOULD HAVE SET DURING SEEK BECAUSE UNIT 
READY DROPPED 


SEEK DID NOT ABORT WHEN DRIVE FAULT SET 


SEQ 0074 





CZRMPAO ren thee 1 pe TST 1 
ERROR POINTER T 


071466 
071514 


070552 
071366 
071466 
071514 


070576 
071366 
071466 
071514 


071514 


070632 
071366 
071466 
071514 


070656 
071366 
071466 
071514 
071514 


070720 
071366 
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; ERROR 


ZERROR 


; ERROR 


; ERROR 


; ERROR 


7 ERROR 


; ERROR 


EDT1 
EFT1 


252 


EMT252 
EHT1 


254 


255 


256 


260 
EMT260 
EHT1 


SEQ 0075 


OPI SHOULD HAVE SET BECAUSE ON CYLINDER NEVER 
DROPPED DURING SEEK 


ATA NOT SET DURING SEEK 


GO RESET EARLY DURING SEEK 


GO DID NOT RESET DURING SEEK 


INCORRECT TAG BUS DURING SEEK 


OPI NOT SET DURING SEARCH 


SEARCH DID NOT ABORT WHEN DRIVE FAULT SET 


Do 


004334 


CZRMPAO teh TY gee TST 1 
ERROR POINTER T 


004332 071466 


071514 


66 
071514 


070770 
071366 
071466 
071514 
071006 
071366 
071466 
071514 
071024 
071366 

1466 


07 
071514 


071050 
071366 


; ERROR 


; ERROR 


; ERROR 


zERROR 


: ERROR 


;ERROR 


ERROR 
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EDT1 
EFT1 


261 


eae 


263 


267 
EMT 267 
EHT1 





OPI SHOULD HAVE SET BECAUSE ON CYLINDER NEVER 
DROPPED DURING SEARCH 


ATA NOT SET DURING SEARCH 


GO RESET EARLY DURING SEARCH 


GO DID NOT RESET DURING SEARCH 


SEARCH ENABLE DIDNT SET DURING SEARCH 


INCORRECT TAG BUS DURING SEARCH 


OPI NOT SET BY SEARCH TIMEOUT 





SEQ 0076 








CZRMPAO wee ote ive TST 1 
ERROR POINTER T 


071 


071120 
071366 


071466 
071514 


071144 
071366 
071466 
071514 


071170 
071366 
071466 
071514 


071206 
071366 


071466 
071514 
071224 

366 


071 
071466 
071514 


071242 
071366 


071466 
071514 


071262 
071366 
071466 


466 
071514 


; ERROR 


ERROR 


7 ERROR 


: ERROR 


7 ERROR 


; ERROR 


;ERROR 





EDT1 
EFT1 


270 
eure 


273 


274 


276 
EMT276 
EHT1 
EDT1 





M 6 
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OPI NOT SET DURING DATA COMMAND 


DATA COMMAND DID NOT ABORT WHEN DRIVE FAULT SET 


EBL RESET EARLY DURING DATA COMMAND 


EBL DIDNT RESET ON TIME DURING DATA COMMAND 


GO NOT RESET DURING DATA COMMAND 


RUN AND GO NOT SET DURING DATA COMMAND 


INCORRECT TAG BUS DURING DATA COMMAND 


SEQ 0077 





, N 
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ERROR POINTER T 
004514 071514 EFT1 
577 ; 
578 sERROR 277 OPI NOT SET DURING DATA COMMAND WHEN ON 
Te 3 CYLINDER DIDNT DROP 
004516 071300 EMT277 
004520 071366 EHT1 
004522 071466 EDT1 
004524 071514 EFT 
581 
258 ay 300 DATA COMMAND DID NOT ABORT WHEN SEEK ERROR SET 
526 071324 EMT300 
004530 071366 EHT1 
004532 071466 EDT1 
534 071514 EFT1 
584 
a sERROR 301 SEARCH NOT ENABLED DURING DATA COMMAND 
0045 071350 EMT301 
004540 071366 EHT1 
004542 071466 EDT1 
004544 071514 EFT 
587 ; 
5 PUT ERROR TABLE HERE 


SEQ 0078 


C2 


at ed aed ah a ed eh ec ed 
OWOBDWNAUSWN—OOON 


cE EEE 


004674 


SPER EERES 
NEIVSSORSSS 





CZRMPAQ RMOS/3/2 DSKLS 
ERROR POINTER TABLE 


TST 1 


004562 


177777 


005046 


000176 
000174 
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3THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 


BADTMO: MOV (SP) ,RO sSAVE PC WHERE THE TIME OUT OCCURED 
TST =(ROS TADJUST P 
CMP (SP) +, (SP)+ ‘RESTORE STACK POINTER 
TYPE ,65$ sat YPE ASCIZ STRING 
BR 64$ :GET OVER THE ASCIZ 
jigs: "ASCIZ  <CRLF>/UNEXPECTED’ BUS TIMEOUT, PC=/ 
MOV ; RO,-(SP) ;SETUP FOR TYPING OUT PC 
;PUT "HALT(O)* INSTRUCTION HERE IF YOU WISH 
:TO STOP ON UNEXPECTED TIMEOUT. 
.SBTTL START OF PROGRAM 
START: NOP 
INC #0 :TTY LOOP, WAIT FOR INCREMENT 
BNE 4 [OF WORD 
RESET ‘RESET THE WORLD 
-SBTTL INITI,cIZE THE COMMON TAGS 
i: CLEAR THE COMMON TAGS ($CMTAG) AREA 
MOV AICMTAG,R6 :2FIRST LOCATION TO BE CLEARED 
CLR (R6)+ LEAR MEMORY LOCATION 
CMP #SWR,R6 : 
iseac :TLOOP "pack IF NO 
MOV K,SP + SETUP THE STACK POINTER 
Zz: INITIALIZE A Feu VECTORS 
20 MOV #SSCOPE ,a# LOTVEC #107 VECTOR FOR SCOPE ROUTINE 
000022 MOV #340, aM#IOTVEC+2 3: ? 
30 MOV #SERROR, avEMTVEC Fi VECTOR FOR ERROR ROUTINE 
000032 MOV #340, a#EMTVEC+2 2: LEVEL 
34 MOV ASTRAP, afT Tha VECTOR FOR TRAP CALLS 
000036 MOV #340, a# TRAPVEC+2:L EVE 
000024 MOV ,@APWRVEC tek FAILURE VECTOR 
000026 MOV #340, aMPWRVEC+2 ::LEVEL 7 
053664 MOV SENDCT,SEOPCT | ::SETUP END-OF-PROGRAM COUNTER 
CLR STIMES : INITIALIZE NUMBER OF ITERATIONS 
CLR SESCAPE ::CLEAR THE ESCAPE ON ERROR ADDRESS 
001131 MOVB #1,$ERMAX TALLOW ONE ERROR PER TEST 
001122 MOV 4.» SLPADR STINITIALIZE THE LOOP ADDRESS FOR SCOPE 
001124 MOV *SLPERR TUP THE ERROR LOOP ADDRESS 
z:SIZE FOR A HARDUARE SWITCH REGISTER. IF NOT FOUND OR 
7:EQUAL TO A '=1'", SETUP FOR A SOFTWARE SWITCH REGISTER. 
MOV @#ERRVEC,-(SP) 3:SAVE ERROR VECTOR 
000004 MOV #64$,a@MERRVEC  ::SET UP ERROR VECTOR 
001154 MOV #DSWR, SWR ¢ 3 SETUP FOR A HARDWARE SWICH REGISTER 
001156 MOV WDDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
174120 CMP #-1,aSWR +: TRY TO REFERENCE HARDWARE SwR 
BNE 66$ BRANCH IF NO TIMEOUT TRAP OCCURRED 
3 THE HARDWARE SWR IS NOT = -1 
BR 65$ ‘BRANCH IF NO TIME 
64$: MOY #65$, (SP) [SET UP FOR TRAP RETURN 
001154 65$: MOV ASWREG, SWR z:POINT TO SOFTWARE SwR 
001156 MOV #DISPREG, DISPLAY 





005062 


42 2 
43 005404 


001403 
012737 


012737 


001005 
104407 
000403 
112737 
000426 


CZRMPAO RMOS/3/2 cas bb 1 
INITIALIZE THE COMMON T 


177777 
054026 
005222 
000042 
001242 
001154 


000001 


001326 
000016 


000040 
000007 
001326 
000042 


005350 


001326 


By 
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SEQ 0080 
66$: MOV (SP)+,@MERRVEC ;;RESTORE FRROR VECTOR 
CLR SPASS ZCLEAR PASS COUNT 
001243 BITB #APTSIZE,SENVM TEST USER SIZE UNDER APT 
BEQ 67$ ,USE NON=APT SWITCH 
001154 we, MOV ASSWREG, SWR TINO,USE APT SWITCH REGISTER 
; SETUP “TIMEOUT” TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 
000004 WBADTMO,ERRVEC ;SETUP FOR UNEXPECTED TIMEOUT 
000006 mov #PR6, ERRVEC #2 TLEVEL 6 
MOV #PR3,-(SP) 3zPUT NEW PS ON STACK 
MOV #68$,-(SP) ::PUT NEW PC ON STACK 
RTI ::POP NEW P£ AND PS 
.SBTTL TYPE PROGRAM NAME 
7: TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
INC #-1 :FIRST TIME? 
BNE 695 BRANCH IF NO 
000042 CMP ASENDAD,a#42 = =: ACT-11? 
re 69$ ey A IF YES 
YPE  ,70$ TYPE ASCIZ STRING 
.SBTTL cer VALUE FOR SOF TWARE swiTCH REGISTER 
as2 3ARE WE RUNNING UNDER XXDP/ACT? 
oe 71$ Sg IF YE 
000001 CMPB ss SENN, #1 ARE WE RUNNING UNDER APT? 
BEQ 71$ BRANCH IF YES 
000176 CMP SWR,ASWREG 33 SOF TWARE SWITCH REG SELECTED? 
BNE 72$ (CH IF NO 
GTSUR ~ S:GET SOFT-SWR SETTINGS 
001150 71s: MOVB #1,$AUTOB z2SET AUTO-MODE INDICATOR 
BR 69$ z:GET OVER THE ASCIZ 
5708: -ASCIZ <CRLF>@CZRMPAO - RMOS/3/2 DISKLESS TEST, PART 1@<CRLF> 
;THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 
[PAPER TAPE (MANUAL), ACT11, XXDP CHAIN OR DUMP 
CLR XXDP ;CLEAR 'XXDP* LOAD DEVICE STORAGE 
000041 CMPB #16, 41 [LOADED FROM AN RMOS/3/2 ? 
BNE [BRANCH IF NOT 
001326 MOV av40,XXDP 7GET DEVICE INDICATOR AND NUMBER 
001326 cHPe #7 .XXDP He IT A VALID NUMBER ? 
CLRB = XXDP , DEFAULT TO DRIVE 0 
1$: TST ays2 ‘CHA AIN MODE OR ACT11 AUTO ACCEPT ? 
BEQ 3$ [BR IF NEITHER 
TYPE 74$ zi TYPE ASCIZ STRING 
BR 73$ T OVER THE ASCIZ 
54748: vASCIZ <CRLF>/NOT TESTING” DRIVE / 
CLR -(SP) ZCLEAR WORD ON STACK 
MOVB _—XXDP,, (SP) 3GET DRIVE ADDRESS 


TYPOS TYPE THE ADDRESS 
-BYTE 1 SONLY Y 1 CHARACTER 


% 005700 


2 
20 





CZRMPAO RMOS/3/2 DSKLS 
GET VALUE FOR SOF TWARE 


105737 
001506 
012737 


132737 
001066 


146137 
04401 


TST 


001217 


177777 
005430 


001326 


005470 
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1 
SWITCH REGISTER 


001300 
001243 


001300 
006040 


000010 
006040 
000010 
006040 
000000 


001300 


3$: 


;;76$: 


75s: 


fis: 


Ya 
7CHECK FOR AUTO MODE OR STANDALONE 
TSTB. $AUTOB 


SEQ 0081 

.BYTE 0 ; SUPRESS LEADING ZEROS 
TYPE $CRLF “(R= 

S$ GET NUMBER OF DRIVES 
INC #-1 ZFIRST TIME THRU HERE ? 
BNE 5$ ‘NO 
TYPE 76$ 33 TYPE ASCIZ STRING 
BR 5$ “GET OVER THE ASCIZ 
“ASCIZ <CRLF>/TO TEST DRIVE / 


CLR -(SP) CLEAR WORD ON STACK 


MOVB _—XXDP,, (SP) [GET DRIVE ADDRESS 
TYPOS ZTYPE DRIVE ADDRESS 
.BYTE 1 ZONLY 1 CHARACTER 
‘BYTE 0 : SUPRESS LEADING ZEROS 
TYPE 78$ 23 TYPE ASCIZ STR 
77$ sGET OVER THE ASCiZ 
ASCIZ /, HALT PROGRAM, REMOVE RRDP PACK AND REPLACE IT/<CRLF> 
TYPE 79$ z:TYPE ASCIZ STRING 
BR $ :GET OVER THE ASCIZ 
-ASCIZ /WITH A WORK PACK, CLEAR LOCATION 40 AND RESTART PROGRAM. /<CRLF> 


ye AUTO MODE ? 
SET DEVICE MAP FOR ALL DRIVES 


U 
BEQ STANDALONE 
MOV #377 ,SDEVM 


ry pa IS RUNNING IN AUTO MODE - SEE IF SIZING IS ALLOWED 


1$: 


2$: 


3$: 
4$: 


BITB #B1T7,SENVM :SIZING ALLOWED ? 
BNE 7$ NO 
CLR R1 START FROM DRIVE 0 
MOV SBASE ,RO ;LOAD THE BASE ADDRESS 
he - amrerises cnaia! 31S DEVICE PRESENT IN MAP ? 
MOV #LODEV,5$ :GET ADDRESS OF LOAD DEVICE MESSAGE 
pr — LOADED FROM RMO5/3/2 ? 
CMPB XXDP,R1 “IS THIS THE DRIVE ? 
BEQ 3$ :YES, TRY NEXT DRIVE 
: CLEAR MASS BUS 


MOV ACLR,RMCS2(RO) 
MOV R1,RMCS2 (RO) LOAD THE DRIVE ADDRESS 

TST RMDS (RO) ;TRY TO ACCESS AN RM DRIVE REGISTER 
MOV ANOTPRS , 5$ [GET ADDRESS OF wr PRESENT MESSAGE 
BIT CEO AC ; 71S rape PRESENT 


BNE 

MOV ANOTAVL , 5$ 'GET ADDRESS OF AVAILABLE MESSAGE 
BIT MDVA,RMCS1(RO) ;1S DRIVE AVAILABLE ? 

BEQ 3$ :BR IF NO 

BR 6$ 

BICB ATNTBL(R1) ,SDEVM CLEAR DEVICE FROM BIT MAP 


TYPE -SCRLF ; CR-LF 


95 006024 
96 0060 


a 


97 0060 


| 


aS 


HEE E 


— SHS os ss SV SS 
SSQRELR 


—— 
Nm-oO 
~N 
Oo 


CZRMPAO RMOS/3/2 DSKLS TST 1 


ions?) 062667 


104401 001217 
005004 
005304 
001376 
005304 
001376 
000137 007000 


7 oF 
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T VALUE FOR SOFTWARE SWITCH REGISTER 


-MSGDRV 
R1,=(SP) 


CMNS TART 





SEQ 0082 


:TYPE ‘DRIVE’ 
SAVE R1 FOR _TYPEOUT 
YPE 


: ¢ SUPPRE 
: TYPE ERROR 
ZADDRESS OF MESSAGE GOES HERE 


oat baie THE DRIVE ADDRESS 
eh yy CHECKED ? 


; CR-LF 
THESE TWO LOOPS ARE ADDED TO 
:WAIT FOR TTY TO FINISH TYPING. 


: JUMP TO COMMON START 


Ue 





STANDALONE INPUT ROUTINES 


, oF 
CZRMPAQ RMOS’3/2 DSKLS TST 1 MACRO V03.01 11-APR-80 13:58:55 PAGE 9 Ci 
SEQ 0083 TK 


1 .SBTTL STANDALONE INPUT ROUTINES 

3 006074 STANDALONE : 

4 006074 004737 060050 JSR PC, $TKINT : INITIALIZE CONSOLE 

6 006100 005227 177777 INC #-1 :FIRST TIME THRU HERE ? 

% 006104 001426 BEQ 3$ TYES |! 

Z aaa i SEE IF THE USER WANTS TO KEEP SAME DEVICES FOR TESTING 

11 006106 104401 062234 TYPE —_ , CNSLOO :MAINTAIN PREVIOUS PARAMETERS ? 

12 006112 104411 RDCHR “GET RESPONSE 

13 006114 012637 001176 MOV (SP) +,$TMP1 ZECHO RESPONSE 

14 006120 104401 001176 TYPE STMP) 

15 006124 123727 001176 000131 CMPB ss S$ TMP'1,#'"Y ZYES RESPONSE ? 

16 006132 001004 BNE 2$ INO! ! 

17 006134 104401 001217 TYPE  ,$CRLF CR-LF 

+4 006140 000137 007000 JMP CMNS TART ;KEEP PREVIOUS PARAMETERS 

20 006144 123727 001176 000116 28: CMPB ss STMP'1,#'N ZNO RESPONSE ? 

21 006152 001427 BEQ 5$ sYES, GET NEW PARAMETERS 

22 006154 104401 062631 TYPE §_,CNSLO8 ZNO, TYPE * ILLEGAL INPUT ° 

23 006160 000752 BR i$ :TRY AGAIN 

25 >SEE IF OPERATOR WANTS HELP TEXT 

26 006162 3$: 

27 006162 104401 062150 TYPE —§ ,MSHELP :WANT HELP ? 

28 006166 104411 RDCHR SGET RESPONSE 

29 006170 012637 001176 MOV (SP)+,$TMP1 ;SAVE AND ECHO RESPONSE 

30 006174 104401 001176 TYPE  ,$TMPi 

31 006200 123727 001176 000131 CMPB ss STMP1,#''Y :WAS IT A YES RESPONSE ? 

32 006206 001407 BEQ 4 

33 006210 123727 001176 000116 CMPB ss S$TMP'1,#'N WAS IT A NO RESPONSE ? 

34 006216 001405 BEQ 

35 006220 104401 062631 TYPE CNSLO8 ot TYPE ° ILLEGAL INPUT‘ 

36 006224 000756 BR $$ [TRY AGAIN 

37 006226 104401 103712 4%: TYPE |HELP SYES = TYPE HELP TEXT 

39 -SEE IF USER WANTS TO CHANGE UNIBUS ADDRESS 

40 006232 S$: 

41 006232 104401 001217 TYPE ,SCRLF or 

42 006236 104401 062201 TYPE § ; UBUSQST T TO CHANGE ADDRESS ? 

43 006242 104411 RDCHR ‘Cer RESPONSE 

44 006244 012637 001176 MOV (SP) STMP1 [SAVE AND ECHO RESPONSE 

45 006250 104401 001176 TYPE 

46 006254 123727 001176 000131 CMPB StmP1 UaAtY :WAS IT A YES RESPONSE ? 

47 006262 001407 BEQ 6$ YES 

48 006264 123727 001176 000116 CMPB ss $TMP'1,#'N ‘WAS IT A NO RESPONSE ? 

49 006272 001525 BEQ 12$ SYES 

50 006274 104401 062631 TYPE CNS!.08 :NO, TYPE * ILLEGAL INPUT ° 

21 75 BR §$+4 : TRY AGAIN 

33 seneal jDIALOGUE TO CHANGE THE UNIBUS ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY 

55 006302 104401 062267 TYPE CNSLO1 TYPE CURRENT | BUS ADDRESS 

56 006306 013746 001276 MOV $BASE,-(SP) ; SAVE $BASE FOR TYPEOUT 
006312 104402 TYPOC 260 TYPE--OCTAL ASCII(ALL DIGITS) 








pa ty RMO5/3/2 DSKLS TST 1 
ANDALONE INPUT ROUTINES 


of 006314 104401 062141 
59 006322 012637 001176 
160000 
062305 
64 344 sg Te 

4 006346 013737 001176 
67 006354 104401 062347 
68 360 005046 

69 006362 113716 001272 
70 366 


000 
104401 062141 
104413 
012637 001176 
022737 001000 
0064 
79 006416 104401 062367 


80 006422 000754 

at 006424 113737 001176 
83 006432 104401 062423 
84 006436 005046 

85 006440 113716 001273 
86 006444 006216 

87 006446 006216 

88 006450 006216 

89 006452 006216 

90 006454 006216 

91 006456 104403 

92 006460 001 

93 006461 

94 006462 104401 062141 
95 006466 104413 

96 006470 012637 001176 
97 006474 001424 

98 006476 023727 001176 
99 006504 002403 

100 006506 104401 062435 
101 006512 000747 

102 006514 006337 001176 
103 006520 006337 001176 
104 006524 006337 001176 
105 006530 006337 001176 
106 006534 006337 001176 
14 006540 113737 001176 
109 

110 006546 

111 006546 005227 177777 
112 006552 001002 

113 006554 104401 062466 
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TYPE ,QUES 
RDOCT 
“44 (SP)+,$TMP1 
001176 CMP #160000, $TMP1 
BLOS 7$ 
TYPE »CNSLO2 
BR 6$+4 
001276 7$: MOV $TMP1 , SBASE 
8$: TYPE ,CNSLO3 
CLR -(SP) 
MOVB $VECT1, (SP) 
TYPOS 
-BYTE 3 
-BYTE 0 
TYPE ,QUES 
RDOCT 
mov (SP)+,$TMP1 
001176 CMP #1000, $TMP1 
BH] 9$ 
TvPE CNSLO4 
001272 9$: MOVB $TMP1,$VECT1 
10$: TYPE ~CNSLOS 
CLR -(SP) 
MO $VECT1+1, (SP) 
ASR (SP) 
ASR (SP) 
ASR (SP) 
ASR (SP) 
ASR (SP) 
TYPOS 
-BYTE 1 
-BYTE 0 
TYPE ,QUES 
RDOCT 
MOV (SP)+,$TMP1 
BEQ 2s 
000007 CMP STMP1 47 
BLT 11$ 
TYPE CNSLO6 
BR 10$ 
11$: ASL $TMP1 
ASL $TMP1 
ASL $TMP1 
ASL $TMP1 
ASL $TMP1 
001273 MOVB S$TMP1,$VECT1+1 


12$ 


SEQ 0084 
TY se ? oe 
:GET NEW BUS ADDRESS 
: CARRIAGE RETURN ? 


7YES=SKIP TO NEXT ENT 
BASE ADDRESS IN 1/0 PAGE ? 


:YES 
TYPE WARNING MESSAGE 


TRY AGAIN 
[STORE NEW BUS ADDRESS 


GET CURRENT VECTOR ADDRESS 


i TYPE 3 DIGITS 
‘PE To? | LEADING ZEROS 


'GET NEW VECTOR ADDRESS 
: CARRIAGE RETURN? 
:YES-SKIP TO NEXT ENTRY 
:VECTOR ADDRESS < 1000 ? 
_ MESSAGE 


sRETR 
STORE NEW VECTOR ADDRESS 


GET CURRENT BR LEVEL 


ONLY 1 DIGIT 
; SUPPRESS LEADING ZEROS 


;GET NEW PRIORITY 
; CARRIAGE: RETURN ? 
:YES-SKIP TO NEXT ENTRY 
LEGAL PRIORITY ? 


[TYPE WARNING MESSAGE 
:TRY AGAIN 
‘STORE NEW PRIORITY 


:DIALOGUE TO INPUT DEVICE NUMBERS 
“INC #~1 
BNE 13$ 
TYPE —_, CNSLO7 


te i TIME THRU ? 
:BR_IF NO 
TYPE INPUT INSTRUCTIONS 


nas 





peasee 
IES 


FaMOR 


| 


yw 
&n~ 


Ww WWWWingnironunironinin—— oo 
SSSIRKARUNLSSSVROROSVSSaroenr 
seca % Sy 
—_ —) 
raeSRe 


xs 
Nw 
NS 
N 
r~ 


SESRRSS 
g SBS88 
5 seine 


ad cd aed ceed eed ed 
as & > 
Owe &* 
wae 
~ 


SNe 


— 
MMM 
Wh 
NNNN 

NN 
RSS 


023727 
001436 
104401 
023727 


CZRMPAO RMOS/3/2 DSKLS TST 1 
STANDALONE INPUT ROUTINES 


000101 


001300 


000015 


000060 


000067 


000015 


000060 
000067 


001300 
001300 


13$: 
14$: 


15$: 


16$: 


17$: 


18$: 


19$: 





$CRLF 
$DEVM 


-MSDRVS 


(SP)+,$TMP1 


STMP1 AA 
15$ 


-ALL 
#377 ,SDEVM 
XSIZ 


$TMP1 ACR 
17$ 

$TMP1 
STNP1 .#*0 
STMP1,#'7 


18$ 
17$ 


(SP)+,$TMP1 


$TMP1.ACR 
19$ 
COMMA 
$TMP1 
$TMP1,#'0 
17 
STNP1#'7 
,CNSLO8 
14$ 
$TMP1,R1 
#°C7, 
#377, 
16$ 
/SCRLF 
KSIZ 


R1 
ATNTBL (R1) , SDEVM 
$DEVM :D 


SEQ 0085 


; CR=LF 
CLEAR DEVICE MAP 
;TYPE "DRIVE(S): 


:GET RESPONSE 
:1$ INPUT ‘‘A' ? 


“YES, TYPE “'ALL'’ AND GO 
TSET DEVICE MAP FOR ALL DRIVES 
TAUTO SIZE. 

: CARRIAGE RETURN ? 

SECHO RESPONSE 

“NUMBER < 0 ? 
:YES 

;NUMBER > 7 ? 


3NO 
sILLEGAL INPUT 


GET RESPONSE 
pea RETURN ? 


:TYPE ', ' 
SECHO RESPONSE 
i a <0? 
“NUMBER > 7 ? 
=NO 
[TYPE '* ?ILLEGAL INPUT'’ 
RETRY 
R1 = DRIVE NUMBER 

, #SET DEVICE IN MAP 


:NO 
> CR=LF 
:GO SIZE DEVICES 


CZ 
16 


ak ed ae ad ced ed a eed aed 
WOONAOULSWN— 
oO 


VIS 


2 007174 
37 007200 
38 007204 
39 007210 
40 007214 

007220 

007224 


105037 
005037 
004737 
012746 
012746 
000002 


CZRMPAQ RMOS/3/2 DSKLS TST 1 
STANDALONE INPUT ROUTINES 


063052 
000002 


054760 


007074 


000042 
001242 
001154 


000001 
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000001 


000001 
000176 


001150 


SEQ 0086 


sASSEMBLE TEST QUE FROM DEVICE MAP 
CMNSTART : 


2$: 


3$: 


:SIZE FOR CLOCK 
JSR 


4$: 


37658: 
64$: 


5$: 
- SBTTL 


66$: 
67$: 


READY: 


1$: 
2$: 


$DEVM,RO 7RO = Peaste te 
MOV ATSTQUE+2,R1 :R1_ = ADDRESS OF FIRST ENTRY IN QUE 
MOV R1,TSTQUE HINITIALIZE ENTRY POINTER 
MOV #1,R2 = DEVICE POINTER 
CLR R3 eR = DEVICE NUMBER 
BIT R2,RO 31S Ya DEVICE IN MAP ? 
BEQ 2$ NO! 
MOV R3,(R1) ;YES = ENTER DEVICE NUMBER IN QUE 
MOVB ATNTBL (R3),1(R1); pid ATTENTION BIT IN QUE 
ADD #2,R1 ADVANCE ENTRY POINTER 
ASL Re ADVANCE DEVICE POINTER 
TSTB Re 4+ ry ALL DEVICES ? 
BEQ 3$ 
INC R3 + ADVANCE DEVICE NUMBFR 
' BR 1$ ENTER NEXT DEVICE 
CLR (R1) : TERMINATE TEST QUE 


PC,SIZCLK 7SEE IF CLOCK PRESENT 

5$ 7YES = CLOCK IS PRESENT 
EMT 
TYPE ,65$ 72 TYPE ASCIZ STRING 
BR 64$ 7:GET OVER THE ASCIZ 
eASCIZ <CRLF>/PROG HLT/ - 
HALT z;PROGRAM HALT !! 
BR 4$ 
mT VALUE FOR SOFTWARE SWITCH REGISTER 

ase 72ARE WE RUNNING UNDER XXDP/ACT? 

bie 66$ 3; BRANCH IF YES 
CMPB SENV,41 72ARE WE RUNNING UNDER APT? 
BEQ 3; BRANCH IF YE 
CMP SWR ,ASWREG 7 SOFTWARE SWITCH REG SELECTED? 
BNE 67$ 7 7BRANCH IF NO 
om 678 72:GET SOFT-SWR SETTINGS 
MOVB #1,$AUTOB 72SET AUTO-MODE INDICATOR 
NOP zsREADY TO START TEST 
TSTB $SDEVM ANY DRIVES IN MAP ? 
BNE 2$ ;BR IF YES 
TST arse ZANY MONITOR PRESENT ? 
BNE 1$ [BR IF YES 
JMP START ; JUMP TO STAR 
JMP $SEOP RETURN CONTROL TO MONITOR 
CLRB $SiSTNM sRESET TEST NUMBER 
CLR STIMES Zs INITIALIZE apmER OF ITERATIONS 
JSR PC,STKINT S INITIALIZE T 
MOV #PR6,-(SP) ;PUT NEW PS On STACK 
MOV #64$,-(SP) 7Z7PUT NEW PC ON STACK 


RTI 77;POP NEW PC AND PS 





Ci 





CZRMPAQ RMOS/3/2 DSKLS 
GET VALUE FOR SOFTWARE 


007226 
41 007226 


117737 


012737 


003 
012737 


172230 
002000 
001276 
000040 
172202 
000026 
177770 
000007 


011000 


7 
TST MACRO VO3.01 11-APR-80 13:58:55 pace 10-1 
SuITCH REGISTER 


001234 


001330 


000010 
000010 


001330 


64$: 
MOVB @TSTQUE,SUNIT  ;LOAD UNIT NUMBER 


CLEAR MASSBUS Tonite vt SELECT DRIVE AND DETERMINE THE LAST TRACK 
OF THE 3 illo | A vay YPES 
MOV TA4 ,LSTRK + ASSUME LAST TRACK FOR RMO2/3 = 4. 
MOV SaAsé, RO ;RO = UNIBUS ADDRESS 
MOV ACLR, ReicS2 (RQ) CLEAR MASSBU 
MOVB aT STQUE (RM MCS2(R (ROS Pas DEVICE UNDER TEST 


MOV RMD 

BIC #177770,R2 ‘SAVE DRIVE TYPE BITS 

CMP #7 ,R2 31S IT AN RMOS ? 

BNE 3$ :NO, must BE AN RMO2 OR RMO3 


33 MOV HTA16!TA2,LSTRK :YES=-SET LAST TRACK = 8. 


SEQ 0087 


AO 
Tal 





CZRMPAQ RMO5/3/2 DSKLS TST 1 
REGISTER AND STORAGE USAGE 


Nonny a ae SS oo os es 
NISSONAARWNo= OOOO RWR 


23 
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-SBTTL REGISTER AND STORAGE USAGE 
REGISTER ASSIGNMENTS 


RO = UNIBUS ADDRESS OF RH CONTROLLER 

=R1 = ADDRESS OF ENTRY IN TEST QUE CORRESPONDING TO THE 
[R2,R3. = WORKING REGISTERS FOR TEST IN PROGRESS, MUST BE 

: SAVED BY SUBROUTINES 

'RG,RS = GENERAL WORKING REGISTERS, ARE NOT SAVED BY 

: SUBROUTINES 

=R6 = STACK POINTER 

R7 = LINKAGE REGISTER TO SUBROUTINES 

; STORAGE ASSIGNMENTS 

[STMPO-STMP4 TEMPORARY STORAGE, NOT SAVED BY SUBROUT INE S 
SSGDDAT,$BDDAT EXPECTED AND RRECEIVED STATUS FOR ERROR TYPEOUT 
7SGDADR,$BDADR ADDRESS OF EXPECTED AND RECEIVED STATUS IF APPLICABLE, 
: ALSO THE ADDRESS OF A REGISTER ERROR 

:$TSIN = TEST NUMBER 

[$UNIT = NUMBER OF DEVICE BEING TESTED 

[RGINBF = THE REGISTER INPUT BUFFER HAS A STORAGE LOCATION FOR 
: EACH REGISTER, AND IS USED WHEN READING STATUS AND 
[RGOTBF = THE REGISTER OUTPUT BUFFER HAS A STORAGE LOCATION FOR 


EACH REGISTER, AND IS USED FOR ASSEMBLING DATA TO BE 
WRITTEN IN REGISTERS 


SEQ 0088 





CZRMPAQ RMOS/3/2 DSKLS 
71 TRANSFER TEST 


1 


> 007326 012737 
? 007334 012702 


2 
WOONAULSWN—O 
Bs ry 
~ 
_ 
= 
— 
Ww 
N 


VIS 


43 007516 012713 
44 007522 032760 
45 007530 001432 


TST 1 
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SEQ 0089 
5 FEAR RRA REAR REEEREREREREEEEEERERRREEEEREEEE 
[*TEST 1 TRANSFER TEST 
Pi eietehel CRRA 
TST1: 
SCOPE :SCOPE CALL 
MOV ASTACK, SP ;LOAD THE STACK SROINTER 
MOV SBASE ,RO :RO = UNIBUS ADDRESS 
MOV TSTQUE,R1 R1 = BOINTER 7 TO DEVICE 
001226 MOV #1,$TESTN :;SET TEST NUMBER IN APT MAIL BOX 
MOV #0,R2 zR2 = REGISTER INDEX 
CLEAR THE MASSBUS AND VERIFY THAT NONEXISTANT DEVICE ERROR IS RESET 
a ae PC, CNTCLR 3GO CLEAR CONTROLLE 
001142 MOV RMCS2(RO) ,$B00ar s STORE RES AT $8DDAT 
001142 BIT #NED, $BDD 
BEQ 20$ 
MOVB (Ri) ,SGDDAT 
001140 BIC #°CUNTMSK, {S6DDAT 
001140 BIS #IR, ScDDA 
MOV RO, $8D. 
001136 ADD APACS SEDADR 
EMT 1 
BR 60$ 
:READ THE REGISTER WHOSE INDEX IS IN R2 AND EXIT TEST IF THE READ 
DOES NOT SET 'NED'’ ERROR 
MOV RO,R3 :R3 = REGISTER ADDRESS 
ADD R 
MOV (R3) ,R4 READ REGISTER 
000010 BIT WNED.RMCS2(RO) 31S ‘NED"' SET?? 
BEQ 70$ ‘NO! ! 
JSR PC,C :GO CLEAR CONTROLLER 
001142 MOV RMCSO (ROD SBDDAT” ;STORE RMCS2 AT $BDDAT 
001142 BIT #NED, SBDDAT 
BEQ O$ 
MOVB (R1), $GDDAT 
001140 BIC #*°CUNTMSK , $GDDAT 
001140 BIS #IR, SGDDAT 
MOV RO, $BDADR 
001136 ADD #RMCS2, $BDADR 
EMT 1 
BR 60$ 
;WRITE THE REGISTER WHOSE INDEX IS IN R2 AND EXIT TEST IF THE WRITE 
{DOES NOT SET ‘NED'' ERROR 
"MOV #0, (R3) :WRITE REGISTER 
000010 BIT WNED.RMCS2(RO) 31S ‘NED’ SET?? 
BEQ 70$ NO! ! 


:COULD NOT READ OR WRITE THE REGISTER WITHOUT SETING ‘NED’’ ERROR - 


C2 
71 


_— RMO5/3/2 DSKLS 


TRANSFER TEST 


610 
69 007612 
70 
71 007616 
72 


9 
93 007740 


103257 


013737 
104002 
000137 


TST 1 


001276 
053600 


001100 
001276 
001462 
055614 
000076 
177777 


001777 
016200 


000001 
000032 


177701 
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001136 


001226 


sADVANCE THE REGISTER INDEX AND REPEAT THE TEST FOR THE NEXT 
jAVAILABLE DEVICE REGISTER 


ADD #2,R2 sADVANCE TO NEXT REGISTER 
CMP #RIMWC .R2 :Is THIS RMWC?? 

BEQ 40$ YES = TRY NEXT REGISTER 
CMP ARMBA ,R2 :18 THIS 

BEQ 40$ YES _= TRY NEXT jREGISTER 
CMP #RMCS2 ,R2 :1S THIS RMCS5?? 

BEQ 40$ 4 - TRY ANOTHER REGISTER 
CMP ARMAS ,R2 31S T RMAS ? 

BEQ 40$ ves - TRY ANOTHER REGISTER 
CMP #RMDB ,R2 HIS THIS RMDB?? 

BEQ 40$ sYES = al ANOTHER REGISTER 
CMP #RMEC2 ,R2 :1S THIS A LEGAL REGISTER 


YES = TRY THIS REGISTER 
igor *NONEXISTENT DEVICE’ ERROR FOR EVERY REMOTE REGISTER ADDRESS 


aad gease , SB8DADR :STORE BASE ADDRESS 
60$: JMP SEOSP :GO SELECT NEXT DEVICE 
70$: 
PUTT TITILI LIL TLITI LEE LETTE TELE LTTE TTT TTT TTT TTT TTT TT TTT TTT 
s*TEST 2 CTOD TEST 
LL RRAAR RARER EERE ERERERERER EERE RRR RERRERERRE ERE REE 
TST2: 
— :SCOPE CALL 
MOV #STACK, SP ;LOAD THE STACK POINTER 
MOV SBASE ,RO [RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 [R1 = POINTER TO DEVICE 
MOV #2,$TESTN :;SET TEST NUMBER IN APT MAIL BOX 
JSR PC, CNTCLR :GO CLEAR CONTROLLER 
sWRITE ONES IN REMOTE REGISTERS 
MOV MILF 76,RMCS1 (RO) ;LOAD RMCS1 
MOV #-1, (RO) A 
MOV #CYUMSK .RMDC(RO)’ ;LOAD RMDC 
MOV #*CXNUOF ,RMOF (RO) ;LOAD RMOF 
sREAD REMOTE REGISTERS TWICE 
10S MOV #1,R2 
: MOV RMCS1(RO) .RMCS1I ;STORE RMCS1 IN INPUT BUFFER 
* MOV RMDA(RO) ,RMDAI ;STORE RMDA IN INPUT BUFFER 
MOV RMDC(RO),RMDCI ;STORE RMDC IN INPUT BUFFER 
“44 war cn) * RMOF I [STORE RMOF IN INPUT BUFFER 
BPL 10$ 
:SEE IF ANY ONE BITS CAME BACK 
BIC #*CILF76,RMCS1I ;1S RMCS1 0?? 


SEQ 0090 


CZRMPAO 


010026 


010054 


tab atatatatabad 
ooooooeoo 
atatd dabadbababad 


oooooo[oo 
S& KKKRRSSS 


kk kk ak kt 
oo 
aad 
oo 
P+ 


QEAKRANASSVBLRGRAVLSSHBVSARATSSSRY 


RMO5/3/2_DSKLS 
CTOD TEST 


004737 


TST 1 


001346 


176000 001366 


161577 


055614 
000076 
177777 
177777 
055614 
000000 
000014 
000042 
177701 
001567 
177777 


177777 
177777 
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001364 


001226 


000000 
000014 
000042 


BNE 20$ zNO!! 
TST RMDAI ne 0?? 


BNE 208 ;NO! ! 
BIC AXNUDC,RMDCI 1S _RMDC 02? 
BNE ZNO! ! 


¢ sNO!! 
BIC A#XNUOF , RMOF I 31S RMOF 0 2? 
BNE 20$ zNO!! 
; CANNOT ~ late ANY ONE FROM REMOTE REGISTER 
20$: 


FF ARERR REREREREEREREEREEEEREREER ERE 


z*TEST 3 MASSBUS INITIALIZE TEST 
2g AAA REREREREEEREEEKEEEEEKEREEREREKEEEEEREEREEEREKEKR EE 
TST3: 

— sSCOPE CALL 

MOV #STACK,SP ;LOAD THE STACK POINTER 

MOV SBASE ,RO 3;RO = UNIBUS ADDRESS 


MOV TSTQUE ,R1 [R1 = POINTER TO DEVICE 
MOV #3, $TESTN +;SET TEST NUMBER IN APT MAIL BOX 


JSR PC,CNTCLR :GO CLEAR CONTROLLER 
WRITE — IN SELECTED REGISTERS 


#ILF76,RMCS1(RO) LOAD RMCS1 
MOV #-1,RMER1(RO) ;LOAD RMER1 
MOV #-1,RMER2(RO) ;LOAD RMER2 


satelite” MASSBUS WITH A CLEAR 


PC,.CNTCLR :GO CLEAR CONTROLLER 
READ THE REGISTERS THAT WERE WRITTEN . 
MOV RMCS1(RO) ,RMCS1I STORE RMCS1 IN INPUT BUFFER 


MOV RMER1 (RO) ,RMER11 
MOV RMER2 (RO) ,RMER21 


SEE IF ANY REGISTER BITS WERE CLEARED 
#*CILF76,RMCS1I ;SET ANY BIT NOT WRITTEN 
BIS A#XNUER2 , RMERZ1 


STORE RMER1 IN INPUT BUFFER 
STORE RMER2 IN INPUT BUFFER 


CMe #-1,RMCS11 ANY ZEROS IN RMCS1?? 
CMP #-1,RMER1I TANY ZEROS IN RMERI?? 
BNE 10$ sYES!!_ 

CMP #~1 ,RMER2I TANY ZEROS IN RMER2?? 
BNE 10$ 


NONE OF THE BITS WERE CLEARED 
EMT 4 


10$: 


5 SEERA EREKEKEKKEKKKEE 


CLEAR STUCK ACTIVE TEST 


2 EAA EREEREREEEEEEREREEKREAEEEAEEREEEREEREREREREKEEERE KE 


T*TEST 4 


1 


SEQ 0091 


C2! 


8 
_— RMO5/3/2 DSKLS_ TST 1 MACRO VO3.01 11-APR-80 13:58:55 PAGE 13-3 
CLEAR STUCK ACTIVE TEST 


010150 TST4: 
010150 900004 SCOPE :SCOPE CALL 
010152 000240 ' NOP 
010154 01 001100 MOV ASTACK, SP ;LOAD THE STACK 5 plea 
010160 001276 MOV SBASE ,RO :RO = UNIBUS ADDRESS 
010164 013701 001462 MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
-_ 010170 012737 000004 001226 MOV #4, STESTN :;SET TEST NUMBER IN APT MAIL BOX 
139 010176 004737 055614 JSR PC,CNTCLR 7G0 CLEAR CONTROLLER 
141 ;WRITE ONES IN TEST REGISTERS 
14¢ 010202 012760 177777 000014 MOV #-1,RMER1(RO) LOAD RMERT 
143 010210 012760 177777 0000462 MOV #~1,RMER2(RO) LOAD RMER2 
146 010216 012760 000001 000024 MOV #OMD,.RMMR1(RO) LOAD RMMRI 
146 ;READ TEST REGISTERS AND SEE IF ANY BITS ARE ON 
147 010224 016037 000014 001346 MOV RMER1 (RO) ,RMER1I zSTORE RMER1 IN INPUT BUFFER 
148 010232 016037 000042 001374 MOV RMER2(RO) .RMER21 ZSTORE RMER2 IN INPUT BUFFER 
149 010240 016037 000024 001356 MOV RMMR1 (RO) -RMMR1 I :STORE RMMR1 IN INPUT BUFFER 
150 010246 042737 040000 001346 BIC TNS RRERT A :DONT ACCEPT UNSAFE 
151 010254 001011 BNE 10$ (CH IF ANY OTHER BITS ON 
152 010256 042737 040200 001374 BIC #SKI'DVC,RMER2ZI :DONT ACCEPT SKI OR DVC 
153 010264 001005 BNE 10$ BRANCH IF ANY OTHER BITS ON 
154 010266 032737 000001 001356 BIT #DMD , RMMR1 I [BRANCH IF DMD IS ON 
155 010274 001001 BNE 10$ 
156 010276 104026 EMT 26 
37 010300 10$: 
159 A J RARER REAR EEEEEREREREREEEREEEEKEEKEEEKERERREE 
s*TEST 5 TRISTATE TRANSFER TEST 
2 EAE EEREEEEEEREEEREREEEEEEEEEEREREKREERPRKEKEKREK 
010300 TSTS: 
010300 SCOPE ZSCOPE CALL 
010302 240 NOP 
010304 012706 001100 MOV #STACK,SP sLOAD THE STACK POINTER 
010310 013700 001276 MOV S$BASE ,RO =RO = UNIBUS ADDRESS 
010314 013701 001462 MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
ae 012737 000005 001226 MOV #5, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
161 010326 005002 CLR R2 :CLEAR ERROR FLAGS 
162 010330 004737 055614 JSR PC, CNTCLR [GO CLEAR CONTROLLER 
164 ;WRITE ONES IN SELECTED REGISTERS 
165 010334 012760 000076 000000 MOV #ILF76,RMCS1 (RO) ;LOAD RMCS1 
166 010342 012760 177777 MOV -1, ZLOAD RMDA 
167 010350 012760 177777 000014 MOV #-1.RMER1(RO) LOAD RMER1 
168 010356 012760 177777 000032 MOV #-1,RMOF(RO) § :LOAD RMOF 
169 010 012760 177777 000042 MOV #~1,RMER2(RO) LOAD RMER2 
171 ;WRITE ZEROS IN SELECTED REGISTERS 
172 010372 012760 000000 000000 MOV #0.RMCS1(RO) LOAD RMCS1 
173 010400 012760 000000 MOV w [LOAD 
174 010406 012760 000000 000014 MOV #O,RMER1(RO) § : LOAD RMERT 
175 010414 012760 000000 000032 MOV #0. RMOF (RO) [LOAD RMOF 
176 010422 012760 000000 000034 MOV #0.RMDC (RO) [LOAD RMDC 
177 010430 012760 000000 000042 MOV #O.RMER2(RO) = LOAD RMER2 


ams 








CZRMPAQ RMOS/3/2 DSKLS TST 1 
TS TRISTATE TRANSFER TEST 


178 

179 

180 010436 

181 010444 

182 010452 

183 010460 

184 010466 

185 010474 

186 

187 

188 010502 

189 010506 

190 010514 

191 010522 

192 010530 

193 010536 

194 010542 

195 010546 

196 010552 

197 010556 

198 010562 

199 01 

200 010572 

201 01 

202 01 

203 010606 

204 010612 

205 010616 

206 

207 

208 010620 

209 010624 

210 010630 

211 010632 

212 010636 
010636 

213 

214 

215 

216 010642 

217 010650 

218 010656 

219 

220 


230 010736 
231 010744 
232 010752 
233 010760 


C 
MACRO VO3.01 11-APR~80 13:58:55 PAGE 13-4 





sREAD BACK ALL wits 


MOV CS1(RO) ,RMCS11 :STORE RMCS1 IN Input BUFFER 
MOV AADAC ),RMDAI ;STORE RMDA IN INPUT BUFFE 
MOV RMER1 (ROS ,RMER1I- ;STORE RMER1 IN INPUT BUFFER 
MOV RMOF ),RMOFI ;STORE RMOF IN INPUT BUFFE 
MOV C(RO),RMDCI :STORE RMDC IN INPUT BUFFER 
MOV AMES CROS »RMER2ZI zSTORE RMER2 IN INPUT BUFFER 
CHECK EACH REGISTER CONTENT FOR ZERO BITS WRITTEN & READ 
MOV #-1,R2 ;ACCUMULATE ZEROS IN R2 
BIS W°CILF76,RMCS1I :SET ALL BITS NOT WRITTEN 
BIS AXNUOF , RMOF I 
BIS #XNUD CC; RMDC 
BIS #XNUER2 , RME 
COM RMCS11 ; COMPLEMENT REGISTER CONTENTS 
COM RMDAI 
COM RMER1I 
COM RMOF I 
COM RMDCI 
COM RMER21 
BIC RMCS11,R2 yACCUMULATE ALL ZERO BITS 
BIC RMDAI .R2 
BIC RMER11,R2 
BIC RMOF I ,R2 
BIC RMDCI.R2 
BIC RMER2I ,R2 
BEQ 10$ ;BRANCH IF EACH BIT IS ZERO 
yONE OR MORE BIT POSITIONS ARE NOT ZERO 
MOV R2,$BDDAT ;SAVE RESULT FOR TYPE 
cLR SSDDAT ZLOAD EXPECTED RESULT 
ie BIS #BITO,R2 ;SET ERROR FLAG 
JSR PC,CNTCLR 7GO CLEAR CONTROLLER 
;PRESET SELECTED REGISTERS TO ZEROS 
: (ASSUME RMCS1, RMER1, RMER2 WERE CLEARED BY INIT) 
MO ) SLOAD RMD 
MOV #0. RMOF (RO) LOAD RMF 
MOV #0.RMDC (RO) SLOAD RMDC 
jWRITE ONES IN SELECTED REGISTERS 
MOV MILF 76,RMCS1 (RO) LOAD RMCS1 
MOV #-1, A 
MOV a (ROS ;LOAD RMOF 
MOV #*CXNUDC . RMDC (RO) “LOAD RMDC 
MOV #-1,RMERI(RO)  ;LOAD RMER1 
MOV #°CKNUER2 ,RMER2 (RO) [LOAD RMER2 
;READ ALL REGISTERS 
MOV RMCS1(RO) ,RMCS11 :STORE RMCS1 IN INPUT BUFFER 
MOV RMDA(RO),RMDAI ;:STORE RMDA IN INPUT BUFFER 
MOV RMOF (RO); RMOFI :STORE RMOF IN INPUT BUFFER 
MOV RMDC(RO),RMDCI :STORE RMDC IN INPUT BUFFER 
MOV RMER1(ROS ,RMERTI- ;STORE RMER1 IN INPUT BUFFER 





D 8 
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TS TRISTATE TRANSFER TEST SEQ 0094 
334 010766 016037 000042 001374 MOV RMER2 (RO) ,RMER21 :STORE RMER2 IN INPUT BUFFER 
236 :CHECK EACH REGISTER CONTENT FOR ONE BITS WRITTEN & READ 
237 010774 042737 177701 001332 BIC W°CILF76,RMCS11 7CLEAR ALL BITS NOT WRITTEN 
238 2 042737 161577 001364 BIC #XNUOF , RMOF I 
239 011010 042737 176000 001366 BIC #XNUDC ; RMDC 

011016 042737 001567 001374 BIC AXNUER2 ,RMER21 
241 011024 005002 CLR R2 ;ACCUMULATE ONES IN R2 
242 011026 053702 001332 BIS RMCS11,R2 s;ACCUMULATE ALL ONE BITS 
243 011032 053702 001340 BIS RMDAI ,R2 

011036 05370 BIS ; 
245 011042 053702 001366 BIS RMDCI.R2 
46 011046 053702 001346 BIS RMER1I1,R2 
247 011052 053702 001374 BIS RMER21,R2 
248 011056 022702 177777 CMP #-1,R2 sSEE IF EACH BIT POSITION WAS ONE 
249 011062 001410 BEQ 20$ SBRANCH IF NONE STUCK 
251 ? ;ONE OR MORE BIT ag Ahn ARE NOT ONE 
252 011064 010237 001142 MOV R2, $BDDAT ;SAVE RESULT FOR TYPE 
253 011070 012737 177777 001140 MOV #-i ~SGDDAT s EXPECTED RESULT 
54 011076 104006 EMT 
255 011100 052702 000002 BIS #B1T1,R2 :SET ERROR FLAG 
56 011104 208: 
257 011104 905702 TST R2 zANY ERRORS DETECTED 2? 
258 011106 001126 BNE 30$ >YES = DONT DO BIT TEST 
259 011110 012702 000001 MOV #1,R2 *R2=BI1T POSITION 
260 011114 25$: 
261 011114 004737 055614 JSR PC,CNTCLR :GO CLEAR CONTROLLER 
262 sWRITE ye — PATTERN a SELECTED vo jy he F eens 
263 011120 010260 R2,RMDA(RO) ;LOAD RMD, 
264 011124 010260 000032 MOV R2.RMOF (RO) tL RF 
265 011130 010260 MOV R2,RMDC ;LOAD RMDC 
266 011134 010260 000014 MOV R2.RMER1(RO) § :LOAD RMER1 
267 011140 010260 000042 MOV R2.RMER2(RO) § :LOAD RMER2 
269 sREAD BACK THE REGISTERS 
270 011144 016037 001340 MOV RMDA(RO),.RMDAI ;STORE RMDA IN INPUT BUFFER 
271 011152 016037 000032 001364 MOV RMOF (RO), RMOFJ ;STORE RMOF IN INPUT BUFFER 
272 011160 016037 000034 001366 MOV RMDC(RO),RMDCI ;STORE RMDC IN INPUT BUFFER 
273 011166 016037 000014 001346 MOV RMER1 (ROS, RMERII- sSTORE RMER1 IN INPUT BUFFER 
sie 011174 016037 000042 001374 MOV RMER2 (RO), *RMERZ1 sSTORE RMER2 IN INPUT BUFFER 
c 
276 ;CHECK REGISTER CONTENTS FOR CORRECT PATTERN 
277 011202 5003 CLR R3 :R3=ACCUMULATED ONE BIT 
278 011204 012704 177777 MOV #-1,R4 *RG=ACCUMULATED ZERO BITS 
279 011210 013705 001340 MOV RMDAI,R5 ;GET ANY GOOD BITS FROM RMDA 
280 011214 050503 BIS R5,R3 
281 011216 00510 COM R5 
282 011220 040504 BIC R5.R4 
283 011222 013705 001364 MOV RMOF IRS :GET GOOD BITS FROM RMOF 
284 011226 042705 161577 BIC #XNUOF ,R'5 
285 011232 050503 BIS : 
286 011234 005105 COM 
287 011236 042705 161577 BIC #XNUOF ,RS 
288 011242 0405 BIC RS,R 
289 011244 013705 001366 MOV Rascl. RS ;GET GOOD BITS FROM RMDC 





MN 


CZRMPAQ RMOS/3/2 DSKLS TST 1 
15 TRISTATE TRANSFER TEST 


=o 
= 
Nm 
w 
oO 


291 011254 
292 011256 
293 011260 
294 011264 
295 011266 
29% 011272 
297 011274 
298 011276 
299 011300 
300 011304 
301 011310 
302 011312 
303 011314 
.304 011320 
305 011322 
306 011324 
307 011326 
308 011330 
309 011332 
310 011334 
311 011336 
312 011340 
313 011344 
314 011350 
315 011352 
316 
317 
318 011354 
319 011354 
320 011356 
321 011360 
322 011364 
323 
329 
011364 
011364 
011366 
011370 
011374 
011400 
011404 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 


176000 
176000 
001346 


001374 
001567 


001567 


011114 


E 
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001226 


BIC #XNUDC RS 
BIS R5,R3 
COM RS 
BIC AXNUDC ,RS 
BIC RS RG 
MOV RMER1I,R5 :GET GOOD BITS FROM RMER1 
BIS R5,R3 
COM R5 
BIC RS .R4 
RMER2I ,RS :GET GOOD BITS FROM RMER2 
BIC AXNUER2 RS 
BIS R5,R3 
COM RS 
BIC AXNUER2 ,R5 
BIC RS,R4 
MOV R2.R5 :RESET ALL ONES IN R3 EXCEPT 
COM RS “FOR THE TEST BIT 
BIC R5,R3 
BIC R2.R4 ;RESET TEST BIT IN R4 
BIS R4.R3 [COMBINE ACCUMULATED 1'S + 0°S 
CMP R3.R2 [1S PATTERN OK?? 
BEQ 26$ “YES! ! 
MOV R2,$GDDAT ;SAVE TEST PATTERN 
Mov R3,SBDDAT [SAVE RESULT 
BR 30$ :SKIP TO NEXT 


oo R2 TO THE NEXT PATTERN AND REPEAT TEST 


ASL R2 :SHIFT THE BIT 
BEQ 30$ sEXIT IF DONE 
JMP 25$ 


30$: 


FLARE 


T*TEST 6 REGISTER SELECT TEST 

*% 

Z*NOTE: REGISTER SELECT 16 IS TESTED BY THE “‘ILR’’ TEST 
2% 


° 
2 AREER EEKEEREREREKEREKEKKKEEE 


TST6: 
_ 7SCOPE CALL 
MOV #STACK, SP ;LOAD THE STACK POINTER 
MOV SBASE ,RO ;RO = UNIBUS ADDRESS 


TSTQUE ,R1 [R1 = POINTER TO DEVICE 
MOV #6, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 


;THE FOLLOWING TABLE GIVES MASSBUS REGISTER SELECT VALUES FOR 
:EACH DEVICE REGISTER 


: REGISTER REG SEL 
. NAME (16,8,4,2,1) 
: RMCS1 00000 
; RMDS 00001 


RMER1 90010 





SEQ 0095 


C2 
71 


340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 011412 
364 011414 
365 
366 
367 011420 
011424 
011430 
370 011434 
71 011440 
372 011444 
373 011452 
374 011460 
375 011464 
376 011466 
377 011474 
378 011500 
379 011502 
380 
381 
382 011504 
383 011504 
384 011510 
385 011514 
386 011520 
387 011524 
388 011530 
389 011534 
390 011540 
391 011546 
392 011554 
393 011562 
394 011566 
395 011570 
396 011576 


005002 
012703 


1 
052737 
020337 


CZRMPAO RMOS/3/2 DSKLS TST 1 
T6 REGISTER SELECT TEST 


177777 
055614 
000014 
0000 
000024 
0000 
000014 
0000 





001346 
001366 


001366 


:TEST REG SEL 1 FOR S-A-0 
JSR 


F 
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RMMR 1 00011 
RMAS 00106 
RMDA 00101 
RMDT 00110 
RMLA 00111 
RMSN 01000 
RMOF 01001 
RMDC 01010 
RMHR 01011 
RMMR2 01100 
RMER2 01101 
RMEC1 01110 
RMEC2 01111 


sEACH REGISTER SELECT LINE IS TESTED FOR A STUCK AT ONE, 

STUCK AT ZERO FAULT. AS AN EXAMPLE, TO TEST REG SEL 1. 
S-A-0, RMER1 IS WRITTEN WITH ZEROS. THEN THE REGISTER 

;THAT HAS THE SAME SELECT ae EXCEPT FOR THE SELECT LINE 

7BEING TESTED, IS WRITTEN WITH ONES. IN THIS EXAMPLE , 

;RMMR1 IS WRITTEN WITH ONES. IF SELECT LINE 1 IS S-A-0, 

:THE ALL_ONES WORD WILL BE WRITTEN IN RMER1, AND RMER1 

SWILL NOT BE 0 WHEN READ BACK. 


CLR R2 -;R2= ZEROS SOURCE 
MOV #-1,R3 zR3= ONES SOURCE 


PC, CNTCLR :GO CLEAR CONTROLLER 
MOV R2,RMER1 (RO) LOAD RMER1 
MOV R2,RMDC (RO) LOAD RMDC 
MOV R3,RMMAR1 (RO) LOAD RMMR1 
MOV R3,RMHR (RO) 


LOAD RMHR 
MOV RMER1 (RO) ,RMER1 I ;STORE RMER1 IN INPUT BUFFER 


MOV RMDC(RO),RMDCI ;STORE RMDC IN INPUT BUFFER 
a R3,RMER11 


10$ 
BIS A#XNUDC ,RMDCI 
CMP at 


;TEST REG SEL 1 FOR S-A-1 
10$: 


JSR PC,CNTCLR :GO CLEAR CONTROLLER 
; LOAD A 


MOV R2.RMDA (RO) : RMD. 

MOV R2.RMOF ( : RMOF 

MOV R2.RMER2(RO) §: LOAD RMER2 

MOV *RMAS(RO) . RMAS 

MOV * RMSN(RO) : RMSN 

MOV R3.RMMR2(RO) LOAD _RMMR2 

MOV RMDA(RO) .RMDAI STORE RMDA IN INPUT BUFFER 

MOV RMOF (RO) -RMOFI :STORE RMOF IN INPUT BUFFER 

MOV RMERZ(ROS ,RMER2I ;STORE RMER2 IN INPUT BUFFER 


208 
BIS 4 © td I 
CMP R3,RMO 





SEQ 0096 


CZRMPAQ RMOS/3/2 DSKLS TST 1 
T6 REGISTER SELECT TEST 


397 011602 001007 

398 011604 052737 001567 
399 011612 020337 001374 

400 011616 001001 

401 011620 104011 

402 

403 

404 011622 

405 011622 055614 
06 011626 010260 000006 
407 011632 010260 000032 
408 011636 010260 000042 
409 011642 010360 000020 
410 011646 010360 000036 
411 011652 010360 000046 
412 011656 016037 000006 
413 011664 016037 000032 
414 011672 016037 000042 
415 011700 020337 001340 

416 011704 001015 

417 011706 052737 161577 
418 011714 020337 001364 

419 011720 001007 

420 011722 052737 001567 
421 011730 020337 001374 

422 011734 001001 

423 011736 104012 

424 

425 

426 011740 

427 011740 004737 055614 
428 011744 010260 000014 


012064 360 000044 
451 012070 016037 000014 
452 012076 016037 000032 
453 012104 016037 000034 
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SEQ 0097 
BNE 20$ 
001374 BIS #XNUER2 ,RMER21 
CMP R3,RMERC] 
BNE 208 
EMT 11 
TEST REG SEL 2 FOR S-A-0 
JSR PC,CNTCLR :GO CLEAR CONTROLLER 
MOV R2.RMDA(RO) [LOAD RMDA 
MOV R2.RMOF (RO) [LOAD RMOF 
MOV R2.RMER2 (RO) ; LOAD RMER2 
MOV R3.RMLA(RO) LOAD RMLA 
MOV R3.RMHR (RO) “LOAD 
MOV R3,RMEC2(RO) § :LOAD RMEC2 
001340 MOV RADA (RO) ,RMDAL [STORE RMDA IN INPUT BUFFER 
001364 MOV RMOF (RO), RMOFI :STORE RMOF IN INPUT BUFFER 
001374 MOV RMER2 (ROS ,RMER21 ;STORE RMER2 IN INPUT BUFFER 
CMP R3,RMDAI 
BNE 30$ 
001364 BIS #XNUOF , RMOF I 
CMP R3,RMOF I 
BNE 30$ 
001374 BIS #XNUER2 ,RMER21 
CMP R3,RMER2] 
BNE 30$ 
EMT 12 
TEST REG SEL 2 FOR S-A-1 
JSR PC,CNTCLR 7G0 CLEAR CONTROLLER 
MOV R2.RMER1(RO)  :LOAD RMERI 
MOV R2.RMDC (RO) [LOAD RMDC 
000000 MOV #ILF76,RMCS1(RO) sLOAD RMCS1 
MOV R3, RMSN(RO) LOAD 
001346 MOV RMER1 (RO) ,RMER1I STORE RMER1 IN INPUT BUFFER 
001366 MOV RMDC (RO) “AO :STORE RMDC IN INPUT BUFFER 
001346 BIS #°CILF76,RMER1 
CMP R3,RMER11 
BNE 40$ 
001366 BIS AXNUDC ,RMDCI 
CMP R3,RMDCI 
BNE 40$ 
EMT 13 
JEST REG SEL 4 FOR S-A-0 
JSR PC,CNTCLR 3GO CLEAR CONTROLLER 
MOV R2.RMER1(RO)  :LOAD RMER1 
MOV R2.RMOF (RO) [LOAD RMOF 
MOV R2.RMDC (RO) SLOAD RMDC 
MOV RMDT (RO) OAD 
MOV R3.RMER2(RO) :LOAD RMER2 
MOV R3.RMECT(RO) | :LOAD RMEC1 
001346 MOV RMER1 (RO) ,RMER11 ;STORE RMER1 IN INPUT BUFFER 
001364 MOV RMOF (RO) ,RMOFI ;STORE RMOF IN INPUT BUFFER 
001366 MOV RMDC(RO).RMDCI STORE RMDC IN INPUT BUFFER 


“am 
Mies 





CZRMPAO RMOS/3/2 DSKLS TST 1 


T6 REGISTER SELECT 


tee gigtie 


0121 
28 Sis! 

1 
21 
21 
21 
21 
21 


SEHEVRSE 


4 

478 012234 
479 

480 

481 012236 
482 012236 
483 012242 
484 012246 
485 012252 
486 56 


304 
492 012310 


503 012344 
504 012350 
505 012356 
506 012364 
507 012372 
508 012400 
509 012402 
510 012410 





001015 
022737 
020337 


TEST 

001346 
161577 
001364 


176000 
001366 


055614 
000006 


161 95 


176000 
001366 
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001364 


001366 


001340 
001374 


001374 


001346 
001340 


;TEST REG SEL 4 


50$ 


BN 
EMT 


;TEST REG SEL 8 


70$ 


R3,RMER11 
50$ 


#XNUOF , RMOF I 
R3,RMOF I 


50 

#XNUDC ,RMDC I 
R3,RMDCI 

50$ 


14 
FOR S-A-1 
PC,CNTCLR 


) 
RMDACROS RMDAI 


60$ 

#XNUER2 ,RMER21 
R3,RMER2] 

15 

FOR S-A-0 


PC,CNTCLR 
R2,RMER1 (RO) 
R2,RMDA(RO) 
R3,RMDC (RO) 
R3,RMER2 (RO) 
RMER1 (RO) ,RMER1 
RMDA(R Af {RNAI 
R3,RMER1 


FOR S-A-1 
PC,CNTCLR 


RMDC (RO) .RMDCI 
RMER2(ROS, RMER2I 
_RMOF I 


80$ 
#XNUDC ,RMDCI 
R CI 


DA CRO) 6A RMER2I 
RMDAI 


—- RMER2 


3;G0 CLEAR CONTROLLER 
3h RMDA 

;LOAD RMER2 

;LOAD RMDS 


LOAD RMOF 
STORE RMDA_IN INPUT BUFFER 
STORE RMER2 IN INPUT BUFFER 


:GO CLEAR CONTROLLER 
OAD RMER1 


[LOAD RMDA 
[LOAD RMDC 


STORE RMER1 IN INPUT BUFFER 
;STORE RMDA IN INPUT BUFFER 


G0 CLEAR CONTROLLER 
OAD RMOF 


;LOAD RMDC 

:LOAD RMER2 

LOAD RMDS 

:LOAD RMER1 

;LOAD RMDA 

7STORE RMOF IN INPUT ah 


STORE RMDC_IN INPUT BUFFER 
zSTORE RMER2 IN INPUT BUFFER 


SEQ 0098 


C2) 
T2, 


526 012474 
527 012500 
528 

529 012502 
530 012506 
531 012510 
532 012514 
533 

534 012516 
535 017522 
536 012524 

537 013830 
538 

539 012532 
540 


545 
o68 019873 
548 


012572 


012606 
012612 
949 
550 012620 





001007 
052737 
020337 
00100 


1 
104017 


012737 
016002 
022702 
001437 
022702 
001434 


022702 
001431 


012737 
004737 


CZRMPAQ RMOS/3/2 DSKLS TST 1 
T6 REGISTER SELECT TEST 


001567 
001374 


024024 


020025 
024025 


020027 
024027 
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001374 


001226 


001174 
001176 


001136 


001226 


80$: 


BNE 
BIS 
CMP 


BN 
EMT 


80$ 
AXNUER2 ,RMER2I 
R3,RMER2] 

80$ 


17 


STARE EEE 


s*TEST 7 


5 EEE ERE 


1817: 


10$: 


SCOPE 


DRIVE TYPE TEST 


SCOPE CALL 
AMSTACK , SP LOAD THE STACK POINTER 
$BASE ,RO ;RO = UNIBUS ADDRESS 
TSTQUE ,R1 ;R1_= POINTER TO DEVICE 
#7 ,STESTN :;SET TEST NUMBER IN APT MAIL BOX 
RMDT (RO) ,R2 STORE RMDT AT R2 
+ uaa :SINGLE POR PORT RMO3 ? 
AMDULPRT ,R2 : DUAL PORT RMO3 ? 
10$ sves !! 


++ palatal oieti PORT RMO2 ? 


MDULPRT !BITO,R2 : DUAL PORT RMO2 ? 
10$ sves !! 


fsycPRr 8171 18170,R2 
#DULPRT!BIT1!BITO,R2 
10$ 


‘visti PORT RMOS ? 
;DUAL PORT RMOS ? 


R2,$BDDAT GET RECIEVED DRIVE TYPE 
#SNGPRT,STMPQO ;GET EXPECTED DRIVE TYPE 
ADULPRT,STMP1 =; yer BH 

RO, $BDADR ;LOAD BAD ADDRESS 

4 T, $BDADR 

SEOSP :GO TO NEXT DEVICE 


SERRA 


+ STEST 10 


DEVICE AVAILABLE TEST 


SEAR RARREEEAKEAEEEEE EERE EREREKRKKKEEE 


78110: 


:SCOPE CALL 
#STACK, SP :LOAD THE STACK POINTER 
SBASE ,RO ;RO = UNIBUS ADDRESS 
TSTQUE ,R1 R1_= POI'.TER TO DEVICE 
#10,$TESTN >;SET TEST NUMBER IN APT MAIL BOX 
PC,CNTCLR :GO CLEAR CONTROLLER 


SEQ 0099 


C2 





























T10 


CZRMPAQ RMOS/3/2 DSKLS TST 1 


DEVICE AVAILABLE TEST 


012642 
55 012650 
556 012654 
557 012656 
558 


559 
012656 
012656 
01 


560 

561 012704 
562 012710 
563 012712 
564 012716 


566 
567 
568 


569 
570 oieres 


96 013050 
597 013050 


104 

052703 
005703 
001025 
012702 
012760 


001142 
001142 


001140 


001226 


001136 


000006 
001142 


emacs ac 
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10$: 


FRR EERERERREEEEREREREERERERERERERREEKKEREEE 


TATEST 11 


RMCS1(RO) , SBDDAT ; STORE io AT SBDDAT 


#*CDVA,SBDDAT  ;CLEAR ALL BUT 

10$ ;BRANCH IF DVA SET 
#DVA, SGDDAT SETUP EXPECTED 
RO, $BDADR SETUP REG ADDRESS 


HOLDING REGISTER TRANSFER TEST 


2 EAR REKEKKEEEERERERREREEEEEERERERREREKEKEE 


TST11: 


SCOPE CALL 
ASTACK , SP LOAD THE STACK POINTER 
SBASE ,RO ;RO = UNIBUS ADDRESS 
TSTQUE ,R1 ;R1_= POINTER TO DEVICE 
#11,$TESTN 3;SET TEST NUMBER IN APT MAIL BOX 
PC, CNTCLR :GO_ CLEAR —— 
R3 CLEAR ERROR FLAGS 
RO, $BDADR ;SETUP REGISTER ADDRESS 
ARMAR , $BD 


WRITE ONES THEN ZEROS IN RMHR AND CHECK FOR S-A-1 BITS. 
sNOTE THAT IT IS NECESSARY TO WRITE SOME OTHER REGISTER IN 


Seenee” WRITE THE HOLDING REGISTER, AND RMDA IS USED FOR THIS 


3 - 
MOV #~1,RMDA(RO) LOAD RMDA 
MOV #0,RMDA(RO) [LOAD RMDA 
MOV RMHR(RO) ,SBDDAT ;STORE RMHR AT SBDDAT 
COM SBDDAT TANY ERROR?? 
BEQ 10$ NO! ! 
cLR $GDDAT [LOAD EXPECTED 
BIS #BITO,R3 7SET ERROR FLAGS 
WRITE ZEROS THEN ONES IN RMHR ANw CHECK FOR S-A-0 BITS. 
"MOV #0,.RMDA(RO) ZLOAD RMDA 
MOV #~i #1 -RMDA A(RO)  :LOAD RMDA 
MOV RMHR (RO) , SBDDAT i STORE RMHR AT $BDDAT 
COM $BDDAT RMHR IS COMPLEMENTED WHEN READ 
MOV #-1,$GDDAT SETUP EXPECTED 
CMP SGDDAT,$BDDAT ANY ERROR?? 
BEQ 20$ NO! ! 
EMT 62 
BIS #B1T1,R3 :SET ERROR FLAG 
iJ NO PREVIOUS ERRORS, WRITE AND READ SHIFTING ONE BIT PATTERN. 
"TST R3 ZANY |FLAGS SET?? 
BNE 50$ 
i MOV #1,R2 <ROSDATA PATTERN 
"Mov #0,RMDA(RO) :LOAD RMDA 








SEQ 0100 


CZ 





612 


632 013222 
250 


062737 
104023 
052703 


er RMO5/3/2 DSKLS TST 1 


000006 
000036 
001142 
001142 


001140 


8 
MACRO V03.01 11-APR-80 13:58:55 PAGE 12-12 
HOLDING REGISTER TRANSFER TEST 


001142 


001226 


4 


5 


O$: ASL 
BN 


O$: 


R2,RMDA(RO) LOAD _RMDA 
RMHR(RO),SBDDAT :STORE RMHR AT SBDDAT 
$BDDAT ;RMHR IS ttt 

7, ata ZANY ,ERROR 

—_— rails EXPECTED 

50$ DO NOT COLLECT ALL ERRORS 
R2 SHIFT TO NEXT PATTERN 
30$ CONTINUE IF NOT DONE 


2 FARRAR EEEEEEEEEKEEEREEKRKEEEEREREKEREEEEREKEREEKERKEKEE 


:*TEST 12 


S$: 


;WRITE ZEROS IN RMCS1, 
10$: 


CONTROL STATUS #1 TRANSFER TEST 


FLARE EREREEEKEEEEREREKEREREREREEEEKEREEKEREREKREK 


TST12: 


#STACK , SP 
SER 


TSTQUE ,R1 
#12,$TESTN 


R3 
PC,CNTCLR 


SCOPE CALL 


LOAD THE STACK POINTER 
RO = UNIBUS ADDRESS 

:R1_= POINTER TO DEVICE 

3;SET TEST NUMBER IN APT MAIL BOX 


:R3 = ERROR INDICATOR 
:GO CLEAR CONTROLLER 


WRITE ONES IN wit BITS 01-05, THEN CLEAR. READ AND 


CHECK FOR S-A~1 
MOV 


EMT 


WRITE ONES IN RMCS1, 


;S-A-1 BITS 


#ILF76, eo (RO) 


PC, CNT 


RMCS1(RO), SBDDAT’ 


;LOAD RMCS1 
CLEAR CONTROLLER 
STORE RMCS1 AT $BDDAT 


#°CILF 76, $BDDAT 
5$ 


#RMCS1, $BDADR 
43 


#ILF76,RMCS1(RO) 
1(RO) LOAD RMCS1 

RMCS1 (RO) , SBDDAT 

#°CILF 76,  sBppat 


S$GDDAT 
RO, $8DAD 


BITS 01-05, THEN WRITE ZEROS. READ AND CHECK FOR 


LOAD RMCS1 
STORE RMCS1 AT SBDDAT 


P R 
#ARMCS1, $BDADR 


#B1T0,R3 


SET ERROR FLAG 


THEN ONES, READ AND CHECK S-A-O BITS. 


SEQ 0101 


C2 
T2 





a oo ata DSKLS TST_1 


645 013300 
646 013306 
647 013314 
648 2 


680 
681 013512 
682 


6835 
one 013514 


690 55 
691 013552 


ROL STATUS #1 TRANSFER TEST 


eS 


000000 
012760 000076 
000000 
177701 
000076 
001140 
001136 
000000 
104024 
052703 000002 


005703 
001035 
012702 


001136 


012737 00001 
005003 


L 
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SEQ 0102 


MOV #0.RMCS1(RO) — ;LOAD RMCS1 
MOV #ILF76,RMCS1(RO) ;LOAD RMCS1 
MOV RMCS1(RO) , SBDDAT ‘STORE RMCS1 AT $BDDAT 
BIC #CILE 76, $BDDAT 
MOV MILF 76, $GDDAT 
CMP $GDDAT , SBDDAT 
BEQ 20$ 
MOV RO, $8DA 
ADD APACS, SBDADR 
BIS #B1T1,R3 zSET ERROR FLAG 
WRITE A SHIFTING ONE BIT PATTERN IN RMCS1, READ AND CHECK FOR STUCK BITS. 
4; R3 ZOMIT IF ANY ERRORS 
BNE 50S 
< MOV #2,R2 :R2 = TEST PATTERN 
"MOV R2,R3 ;R3 = EXPECTED RESULT, BITS 1-5 
BIC #°CILF76,R3 
MOV #0,RMCS1(RO) LOAD RMCS1 
MOV R2.RMCS1(RO) §:LOAD RMCS1 
MOV RMCS1(RO), SBDD A ;STORE RMCS1 AT $B8DDAT 
BIC #eCILP 7G, $8DD 
CMP R3, SBDDA 
BEQ 40$ 
MOV R3,$GDDAT 
MOV RO, $BDADR 
ADD #RMCS1,$BDADR 
EMT 25 
40$: ASL R2 ;SHIFT TO NEXT BIT 
nes BNE 30$ SCONTINUE IF R2 NOT ZERO 
FF EERE EEEEEEREEEKREKEKEKEEEEEEREREEEEKEREREKEKKKKE 
S*TEST 13 ERROR REGISTER #1 TRANSFER TEST 
JF AAA EKEEKEEKEKEKEEREREKEEEREEREREREEKEKEEREREEEE 
T8113: 
SCOPE :SCOPE CALL ; 
MOV ASTACK, SP ;LOAD THE STACK POINTER 
MOV SBASE RO [RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 [R1 = POINTER TO DEVICE 
MOV #13, $TESTN +;SET TEST NUMBER IN APT MAIL BOX 
CLR R3 ZCLEAR ERROR FLAG 
WRITE ONES IN RMER1, CLEAR AND CHECK FOR S-A-1 BITS 
MOV #~1,RMER1(RO)  ;:LOAD RMER1 
JSR PC, CNTCL 7GO CLEAR CONTROLLER 
MOV RMER1 (ROD RMERT I” ;STORE RMER1 IN INPUT BUFFER 
MOV RMER1I, 
BIC PAECPAR TRNAS ILF !ILR>, SBDDAT 
BEQ 10 
CLR $GDDAT 





2 
Nm 
oO 
= 
Wi 
Ww 
e 


WWW 
IG 
nmr 


=i and 
+o 


o 

oooo 
ad ad od od ed od ad od 
SESS w 
o 


SRESSSSSE 
ooooo 


gi RESrrEEERE 


SER 


ANAS 
WDWNAUSWN—o 


[heheh 
yyy 
i 

aasN 


lelelelelolelololela) 
Waa 
ERVIDY 


tod 3 2 I I 3 


723 013744 


RONTS 


740 

741 014082 
742 

743 

744 014056 
745 014056 
746 014 
747 014072 
748 014100 


062 
104033 


016037 
012737 


eee RMO5S/3/2 DSKLS TST_1 
11 ERROR REGISTER #1 TRANSFER TEST 


001136 
000014 


177777 
000000 
000014 
001346 
177770 
001140 
001136 
000014 
000001 
001346 
074017 
001140 
001136 
000014 
000001 


001346 
147777 


001140 
001136 
000014 
030000 


000000 
177777 
000014 
177777 
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001136 


001142 
001142 


SEQ 0103 


MOV RO, SBDADR 
ADD ARMER1 , SBDADR 
EMT 27 
10$: 
MOV RMER11, $8DD 
BIC #*C<DCK! AE AOE 'HCRC!HCE!ECH! WCF !FER>, $8DDAT 
BEQ 20$ 
CLR SGDDAT 
MOV RO, $BDADR 
ADD #RMER1, SBDADR 
EMT 30 
20$: 
MOV RMER11, $8DDAT 
BIC #*°C<OPI '!DTE>, $BDDAT 
BEQ 30$ 
CLR SGDDAT 
MOV RO, $BDADR 
ADD #RMER1 , SBDADR 
EMT 31 
guRITE ONES THEN ZEROS IN RMER1, READ AND CHECK FOR S-A-1 BITS 
MOV #-1,RMER1(RO) LOAD RMER1 
MOV #O,RMERI(RO) =: RMER1 
MOV RMER1(RO) ,RMER1 ;STORE RMER1 IN INPUT BUFFER 
MOV RMER11 , $8DDAT 
BIC AAC<RMR!ILF !ILR>, SBDDAT 
BEQ 40$ 
CLR $GDDAT 
MOV RO, SBDADR 
ADD ARMER1 , SBDADR 
BIS #BI1TO,R3 :SET ERROR FLAG 
40$: MOV RMER11,$BDDA 
BIC #°C<DCK! TAE ! AOE !HCRC!HCE!ECH! WCF !FER>, $BDDAT 
BEQ 50$ 
CLR $GDDAT 
MOV RO, $BDADR 
ADD #RMER1 , SBDADR 
noe BIS #B1T0,R3 7SET ERROR FLAG 
MOV RMER11 , $BDDAT 
BIC #*C<OPI 'DTE>, $BDDAT 
BEQ 60$ 
CLR $GDDAT 
MOV RO, $BDADR 
ADD #RMER1 , SBDADR 
BIS #BI1T.R3 
ihRITE ZEROS THEN ONES IN RMER1,READ AND CHECK FOR S-A-0 BITS 
MOV #0,RMER1(RO) LOAD RMER1 
MOV #-1,RMERI(RO) LOAD RMERT 
MOV RMER1 (RO) , $BDDAT ;STORE RMER1 AT $BDDAT 
MOV #-1,$GDDAT 


T2 


ERROR REGISTER # 


' 778 
779 014242 
780 014244 
781 014246 
782 
783 


785 014274 
786 014300 
787 014306 


052703 


005703 
001042 
012702 


cpyere RMOS/3/2 tyr TST 1 
T13 #1 TRANSFER TEST 


001140 


001136 
000014 


000002 


000001 
055614 
4 


N 
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001142 


001136 


001142 


001142 


001142 


001136 


CMP $SGDDAT , SBDDAT 
BEQ 70$- 
MOV RO, $8DADR 
aad #RMER1 , SBDADR 
BIS #B1T1,R3 
WRITE A_SHIFTING 1 BIT_IN RMER1 AND CHECK FOR STUCK BITS 
iNOT E: DONT TEST UNSAFE OR PARITY 
TST R3 :SKIP THIS PART IF ANY ERRORS 
BNE 120$ 
80s MOV #1,R2 :R2 = TEST PATTERN 
JSR PC,CNTCLR :GO CLEAR CONTROLLER 
MOV R2,RMER1 (RO) LOAD RMER1 
MOV RMER1 (RO) , SBDDAT STORE RMER1 AT $8DDAT 
BIT #PAR ,R2 DONT TEST PAR = 0 
BNE 90$ 
BIC #PAR , $BDDAT 
90$: BIT #UNS ,R2 DONT TEST UNS = 0 
BNE 100$ 
BIC #UNS , SBDDAT 


100$: CMP R2,$BDDAT 
B 110$ 


EQ 
MOV R2,$GDDAT 
MOV RO, $BDADR 
ADD #RMER1 , SBDADR 
EMT 36 
110$: ASL R2 :SHIFT TO NEXT BIT 
BNE 80$ SCONTINUE IF R2 NOT ZERO 
120$: 
J AAA EKEEEKEREEEREREEREREAEKEKERERRAEKEKREEEEEEEEREEREEEEKKK 
tSTEST 14 CLEAR OFFSET STUCK ACTIVE TEST 
i z ~MARRAASG£ASLA£A£LSLLLS SAE LASS SSS eee ee ee eee EER PEE ESSE EEE SSeS SS aS 
TST14: 
: SCOPE ZSCOPE CALL 
MOV #STACK, SP ;LOAD THE STACK POINTER 
MOV S$BASE ,RO "RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
MOV #14, $TESTN +:SET TEST NUMBER IN APT MAIL BOX 
JSR PC, CNTCLR 7G0 CLEAR CONTROLLER 
MOV #-1,RMOF(RO) | :LOAD RMOF 
MOV RMOF (RO), $BDDAT :STORE RMOF AT SBDDAT 
BIC #*COFD, SBDDAT 
0$ ;BRANCH IF OFD IS A ONE 
MOV #OFD,SGDDAT SETUP ERROR MESSAGE 
MOV RO, SBDADR 
ADD , 
EMT 172 
10$: :END OF TEST 


SEQ 0104 


ZI 





| halide RMO5/3/2 DSKLS TST 1 


796 


014366 0127357 0000 001226 
798 014374 005003 
799 014376 010037 001136 
800 014402 062737 001136 


812 014454 104053 
813 0144 052703 000001 
814 
815 
816 01 
817 014 013737 001364 001142 
818 014470 042737 161577 001142 
819 014 001403 
820 014500 104054 
821 014502 052703 000001 
822 
824 014506 

5 014 012760 000000 000032 
826 014514 012760 177777 000032 
827 014522 016037 000032 001364 
829 
830 014530 013737 1364 001142 
831 014536 042737 016200 001142 


832 014544 001403 
833 014546 104053 
834 014550 052703 000001 





013737 
2737 
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OFFSET REGISTER TRANSFER TEST 


FERRARA AEE REEREREERERRERERREEEREREREEEERERERRERREREEE 


TSTEST 15 OFFSET REGISTER TRANSFER TEST 
OPT ri tii tri iti titi titi tit tttititititiTte ty 
TST15: 


sSCOPE CALL 


LOAD THE STACK POINTER 

MOV SBASE RO :RO = UNIBUS ADDRESS 

MOV TSTQUE ,R1 R1_= POINTER TO DEVICE 

MOV #15, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 


CLR R3 RESET ERROR FLAGS 

MOV RO, S8DADR ; SETUP BAD ADDRESS 

ADD ARMOF , SBDADR 

CLR SGDDAT SETUP EXPECTED DATA 
sWRITE ONES THEN ZEROS IN RMOF AND CHECK FOR S-A-1 BITS. 

MOV #~1 ,RMOF (RO) LOAD RMOF 

MOV #0 ,RMOF (RO) LOAD _RMOF 

MOV RMOF (RO) ,RMOFI STORE RMOF IN INPUT BUFFER 
CHECK UNUSED BITS OF RMOF FOR ZERO 

MOV RMOF I , SBDDAT 


:GET UNUSED BITS 
BIC #*CXNUOF , SBDDA T 
oar 10$ :BRANCH IF NO ERROR 


EM 53 
BIS #B1T0,R3 :SET ERROR FLAG 
i CHECK USED BITS OF RMOF FOR ZERO 
“MoV RMOFI,$BDDAT GET USED BITS 
BIC #XNUOF , SBDDAT 
BEG 208 ;BRANCH IF NO ERROR 
BIS #BITO.R3 :SET ERROR FLAG 
sWRITE ZEROS THEN ONES ON RMOF AND CHECK FOR S-A-0 BITS. 
"MOV #0,RMOF (RO) ZLOAD RMOF 
MOV #-1,RMOF(RO) § :LOAD RMOF 
MOV RMOF (RO),RMOFI STORE RMOF IN INPUT BUFFER 
;CHECK UNUSED BITS OF RMOF FOR ZERO. 
MOV DAT — ;GET UNUSED BITS 
BIC #*CXNUOF , SBDDAT 
BEQ 508 ;BRANCH IF NO ERROR 
BIS #BITO.R3 
CHECK USED BITS OF RMOF FOR ONE, 
: RMOFI,$BDDAT GET USED BITS 
AXNUOF , $BDD 
A°CXNUOF ,SGDDAT ;SETUP EXPECTED STATUS 


S$GDDAT , SBDDAT 
40$ BRANCH IF NO ERROR 


MOV #STACK, SP 





SEQ 0105 ¥4 





843 014606 
844 014610 
845 


846 
847 014614 


871 734 
872 014740 
873 
874 
875 
876 014746 
877 
878 014754 


104055 
052703 


012737 
005003 
010037 

737 


062 
005037 
012737 


012760 


004737 
013760 
016037 


013737 


1 4 
052703 


CZRMPAQ RMOS/3/2 DSKLS TST 1 


000001 
000000 
000032 
000032 


161577 
001142 


001140 


. 2 
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OFFSET REGISTER TRANSFER TEST 


000032 
001142 


SEQ 0106 
EMT 55 
BIS #B1T1,R3 
idf NO PREVIOUS ERRORS, TEST RMOF WITH SHIFTING ONE BIT PATTERN. 
; TST R3 sANY ERROR?? 
BNE 70$ YES!! 
a MOV #1,R2 [STARTING DATA PATTERN 
"MOV #0,RMOF (RO) ;LOAD RMOF 
MOV R2.RMOF (RO) [LOAD RMOF 
MOV RMOF (RO) ,$BDDAT :STORE RMOF AT SBDDAT 
MOV R2, ZSETUP EXPECTED RESULT 
BIC AXNUOF ,R3 [CLEAR UNUSED BITS 
CMP R3,$BDDAT + COMPARE EXPECTED & RECEIVED 
BEQ 60$ SBRANCH IF NO ERROR 
Mov R3.SGDDAT [LOAD EXPECTED 
60$: ASL R2 :SHIFT TO NEXT BIT 
BNE 50$ [CONTINUE IF NOT DONE 
70$: 
FRA EEEEKEREERERREEREREREEEEEEEEEREERKREEREREK 
TRTEST 16 ERROR REGISTER #2 TRANSFER TEST 
Bs ; SERRE RRR EEE EERE RRR RRRERERERERRRREE ERR ERR REE 
TST16: 
SCOPE :SCOPE CALL 
MOV ASTACK, SP ;LOAD THE STACK POINTER 
MOV S$BASE ,RO [RO = UNIBUS ADDRESS 
MOV TSTQUE,R1 :R1 = POINTER TO DEVICE 
MOV #16, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
CLR R3 :RESET ERROR FLAGS 
MOV RO, $BDADR ‘SETUP BAD ADDRESS 
ADD ARMER2 , SBDADR 
CLR $GDDAT SETUP EXPECTED DATA 
MOV WFMT16,RMOFO SET 16 BIT FORMAT MODE TO ALLOW 


WRITE ONES 
MOV 


6 
:"'SSE’* TO BE SET IN RMER2 


IN RMER2, CLEAR AND CHECK FOR S-A-1 BITS 
#-1,RMER2(RO) ;LOAD RMER2 


JSR PC,CNTCLR :GO CLEAR CONTROLLER 

MOV RMOFO,RMOF (RO) ; 

MOV RMER2 (RO) ,RMER21 zSTORE RMER2 IN INPUT BUFFER 
2 TEST — OIE ees at A ata ON IF 

BIC #*CXNUER2 , SBD 

BEQ 10$ "BRANCH IF NO ERROR 

EMT 44 

BIS #E1TO,R3 SET ERROR FLAG 
i TEST ‘OPE’, "‘IVC'*, "LSC'' FOR ZERO-FAILURE ON CS, IF 


an 
t aims 





* tad RMOS/3/2 DSKLS 3" 1 


ERROR REGISTER # 


891 001374 
536 Biao 6 042737 143777 
894 0 04045 

895 015040 052703 000001 
896 

899 015044 013737 001374 
900 Bienes 042737 175767 


01 046 
903 015064 052703 000001 


50 
907 015070 012760 177777 
908 015076 012769 000000 
909 015104 0160357 000042 


3 
912 015112 013737 001374 
913 015120 042737 143777 
914 015126 001403 

915 015130 104047 

pat 015132 052703 000001 
918 

919 015136 

920 015136 013737 001374 
921 015144 042737 175767 
922 015152 001403 

923 015154 104050 

924 015156 052703 000001 
925 

926 

927 015162 


000000 
929 015170 012760 177777 
eet 015176 016037 000042 


932 015204 001374 
933 015212 042737 176210 
934 015220 

935 015222 104044 

236 015224 052703 000001 


938 
939 015230 


1 1 
946 015264 052703 000002 
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TRANSFER TEST 


_ 108: 
MOV RMER21, 
BIC PCeerE ive LSC, SBDDAT 
BEd 208 SBRANCH IF NO ERROR 
BIS #B1T0,R3 7SET ERROR FLAG 
sJEsT "LBC'', ‘DPE’ FOR ZERO=FAILURE ON DS, IF 
“mov RMER21,$BDDA 
BIC WCCLBCIDPE. T SEDDAT 
BEG 308 ;BRANCH IF NO ERROR 
BIS #BITO,R3 sSET ERROR FLAG 
guRITE ONES IN RMER2 THEN WRITE ZEROS AND CHECK FOR S-A-1 BITS. 
"MOV #=1,RMER2(RO)  ;=LOAD RMER2 
MOV #0,RMER2(RO) —s: RMER2 
MOV RMER2 (RO) ,RMER2ZI ;STORE RMER2 IN INPUT BUFFER 
;TEST OPE’, “‘IVC’’, "LSC’' FOR ZERO-FAILURE ON CS. IF 
MOV RMER2I , $BDDAT 
BIC #*C<OPE!IVC!LSC>, SBDDAT 
BEd 405 SBRANCH IF NO ERROR 
BIS #BI1TO,R3 :SET ERROR FLAG 
i TEST "LBC'', "DPE’' FOR ZERO-FAILURE ON DS, IF 
“Mov RMER21, 
BIC par fares ap " SBDDAT 
BEQ 50$ ;BRANCH IF NO ERROR 
EMT 50 
BIS #BITO.R3 ZSET ERROR FLAG 
WRITE ZEROS IN RMER2 THEN WRITE ONES AND CHECK FOR S-A-O BITS. 
"MoV #O,RMER2(RO) LOAD RMER2 
MOV #~-1,RMER2(RO) :LOAD RMER2 
MOV RMER2 (RO) ,RMER21 ;STORE RMER2 IN INPUT BUFFER 
;TEST UNUSED BITS FOR ZERO-FAILURE ON IF 
MOV RME DAT 
BIC #*CXNUER2, SBDDAT 
BEQ 60$ :BRANCH IF NO ERROR 
EMT 44 
BIS #BITO,R3 :SET ERROR FLAG 
TEST USED BITS FOR ONE-FAILURE ON IF 
MOV RMER21 , SBDDAT 
BIC #XNUER? , SBDDAT 
MOV #*CXNUER2, $GDDAT 
CMP SGDDAT, SBDDAT 
BEd 208 :BRANCH IF NO ERROR 
BIS #BIT1.R3 sSET ERROR FLAG 


— RMO5/3/2 DSKLS 


ERROR REGISTER 


947 
948 
949 015270 
950 015270 


15272 
952 015274 
300 


966 366 
967 015374 
968 015376 
970 015400 
971 015402 
972 
973 015404 
974 
975 


992 
993 015502 





005703 
001044 
012702 


012737 
004737 
010037 
062737 
012702 


016037 


TST 1 


000001 
055614 


000030 
001140 
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000032 
001142 


001142 
001142 


001140 
001142 


001226 


001136 


SEQ 0108 


iff NO PREVIOUS ERROR, TEST BIT INTERFERENCE WITH SHIFTING ONE BIT. 
a we R3 ZANY ERRORS? 
BNE 120$ 3 '! 
oes MOV #1,R2 [R2=DATA PATTERN 
2 PC, CNTCLR :GO CLEAR CONTROLLER 
MOV RMOFO,RMOF (RO) LOAD RMOF 
MOV R2,RMER2(RO)  :LOAD RMER2 
MOV . RMER2(RO),SBDDAT ;STORE RMER2 AT SBDDAT 
gi #SKI,R2 :18 Sk BEING SET? 
BIC #SK1,$BDDAT [DONT TEST SKI FOR, {ZERO 
90$: BIT #DVC.R2 [IS DVC BEING SET? 
E 100$ YES! ! 


BN’ 
BIC #DVC, oe ;DONT TEST DVC FOR ZERO 
BIC #XNUER2,$GDDAT ;UNUSED BITS SHOULD BE ZERO 


CMP SGDDAT,$BDDAT ANY ERRORS?? 
BEQ 110$ NO! ! 
EMT 52 
110$: ASL R2 :SHIFT TO NEXT DATA BIT 
BNE 80$ [CONTINUE IF NOT DONE 
120$: 
FLARE EERE EEREEEKEREERRREEREREEKEEKEKEREEEEEEEEKEREE 
S*TEST 17 SERIAL NUMBER TEST 
SL AAR EREEREEREEERREEEERREREREREREREEEEEEEREKEEE 
TST17: 
SCOPE :SCOPE CALL 
MOV #STACK, SP ;LOAD THE STACK POINTER 
MOV SBASE ,RO "RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 [R1 = POINTER TO DEVICE 
MOV #17, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
JSR PC, CNTCLR 7GO CLEAR CONTROLLER 
MOV RO. $BDADR SSETUP REGISTER ADDRESS FOR TYPEOUT 
ADD ARMSN 


, SBDADR 
MOV #25. ,R2 sREAD RMSN 25 TIMES 


:READ RMSN AND USE THE RESULT AS EXPECTED VALUE 
MOV RMSN(RO),SGDDAT ;STORE RMSN AT $GDDAT 


READ RMSN AND COMPARE WITH INITIAL VALUE 


10$: 
MOV RMSN(RO), +} al ;STORE RMSN AT $8DDAT 
CMP SGDDAT, SBDDA 
a ree ;BRANCH IF SERIAL NUMBER CONSISTENT 


eatcaal COUNT AND CONTINUE IF NOT DONE 


CZRMPAO aia DSKLS TST 1 
RIAL NUMBER TEST 


RVAVORR 


SESeSsesesy 


SooooCooooo°oo 
a ee PP 


a et as = ss dS os SS ss a a es 
eleleleleleleleloj=) 
ee ed ed ed ed ed 
WONAUSWR—O 


1020 01564 
1021 015644 

015644 
1022 015646 
1023 


5724 
1037 015726 
1038 





005302 
100366 


001444 
055614 
000014 
000042 
177767 


Pea lse 
000014 
000010 
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001226 


DEC R2 
BPL 10$ 
30$: sEND OF TEST 
FREER R ERE EAREEEREERERREE 
tSTEST 20 CONTROL BUS PARITY DETECTION TEST 
CLEARER RARER REREEEEREEEREEEEREREEREEEREEEREREEEREREKEE 
TST20: 
ve ;SCOPE CALL 
MOV ASTACK,SP ;LOAD THE STACK POINTER 
MOV SBASE, RO. ‘RO = UNIBUS ADDRESS 
MOV TSTQUE,R [R1 = POINTER TO DEVICE 
MOV #20, Sree tN 3SET TEST NUMBER IN APT MAIL BOX 
; SETUP “=. FIRST TEST LOOP (NO ERROR) 
CLR cope AR’' D BE ZERO 
MOVB RMCS20 :SETUP RMCS2 VALUE 
BIC pad at RMCS20° 
MOV #7,RMHRO s INITIALIZE DATA PATTERN 
BR 6S :SKIP INCREMENT FIRST TIME 
5$: ASL RMHRO sSHIFT TO NEXT PATTERN 
_— AND VERIFY THAT ‘PAR’' IS RESET 
JSR PC,CNTCLR md CLEAR CONTROLLER 
MOV RMER1(RO) , SB8DDAT ;STORE RMER1 AT SB8DDAT 
MOV RMER2 (RO) ,RMER2ZI ;STORE RMER2 IN INPUT BUFFER 
BIC #*CPAR,SBDDAT ;DID "PAR" RESET? 
BEQ 20$ sYES!! 
MOV RO, $8DADR ‘SETUP REGISTER ADDRESS 
ADD #RMER1, $BDADR 
BIT ADPE ,RMER2 71S ‘DPE’ SET?? 
BNE 10$ s¥es!! 
EMT 67 
BR 50$ 
10$: 
EMT 70 
BR 50$ 
ioelte TEST PATTERN AND VERIFY *PAR’' STATUS 
MOV RMCS20, wesc ;LOAD RMCS2 
MOV RMHRO, (RO) cL ; 
MOV RMER1 (RO), sSeDDAT" ;STORE RMER1 AT $B8DDAT 
BIC #°CPAR, SBDDAT 
CMP SGDDAT . SBDDAT :1S "PART" CORRECT?? 
BEQ 40$ sYES!! 
BIT #PAT .RMCS20 SHULD *PAR'' BE SET? 
BNE 30$ ;YES!! 
EMT 71 
BR 50$ 
30$: 
EMT 


BR 50$ 
:GO TO NEXT PATTERN 


SKIP TO NEXT 


WN 


ZRMPAQ aso 3/ 
20 


04 
1049 015772 
1050 
1051 


015772 


1 

1074 016102 
1075 016102 
1076 016106 
1077 016110 
1078 


1079 





012737 


012737 
005037 
000402 


000004 
000240 


2 DSKLS TST 1 
ROL BUS PARITY DETECTION TEST 


001444 
000020 


000010 
000001 


001444 


055614 
001444 


000036 
000000 
157777 


001444 
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001416 


001416 
001140 
001444 


001226 


001444 


40$: TST RMHRO 31S DATA PATTERN COMPLETE?? 
BNE 5$ zNO!! 
BIT #PAT ,RMCS20 : re 


oe ives EST COMPLETE?? 
;SETUP FOR SECOND TEST LOOP (ERROR 
BIS APAT ,RMCS20 PARITY 


stun ON BAD 
MOV #PAR ,SGDDAT EXPE CT ERROR 
MOV #1 _RMHRO ; INITIALIZE DATA PATTERN 
BR : TART LOOP 
50$: zsEND OF TEST 
FRA RARER 
tSTEST 21 CONTROL BUS PARITY GENERATION TEST 
"gga ei a a le iS i 
TST21: 
SCOPE ;SCOPE CALL 
NOP 


MOV MSTACK, SP :LOAD THE STACK POINTER 

MOV SBASE ,RO ;RO = UNIBUS ADDRESS 

MOV TSTQUE ,R1 ;R1_= POINTER TO DEVICE 

MOV #21, $TESTN >;SET TEST NUMBER IN APT MAIL BOX 


SETUP FOR TEST (NO ERROR) 
MOV #1 ,RMHRO 


: INITIALIZE DATA PATTERN 
CLR SGDDAT MCPE SHOULD B 
BR 20$ 


RO 
“DONT SHIFT FIRST TIME 
;SHIFT DATA PATTERN 
10$: 
ASL RMHRO 


JSR PC,CNTCLR :GO CLEAR CONTROLLER 
MOV RMHRO,RMHR(RO) ;LOAD RMHR 


; TRANSFER DATA TO RH, VERIFY NO ‘MCPE*’ ERROR 

MOV RMHR(RO),RMHRI _;STORE RMHR IN INPUT BUFFER 
MOV RMCS1(RO) , SBDDAT STORE RMCS1 AT SBDDAT 
BIC Sos , SBDDAT WAS BAD” PARITY DETECTED?? 


20S: 


BEQ 
EMT 73 
BR 40$ 
ace TO NEXT PATTERN 
: TST RMHRO :DONE ALL PATTERNS?? 
BNE 10$ zNO!! 
40$: END OF TEST 
LEAR ARERR EERE RARER RARER ERR ERR RRR RE 
TRTEST 22 RMDA,RMDC FAULT TEST 
[LEAR RARER EERE EAR EERE RRR E RRR 
TST2e: 


SCOPE SCOPE CALL 
NOP 


tals 


wo we Ee DSKLS 3s : 


A.RMDC FAULT T 


— SS ss SS 


SELSLESRESSERTSE 


SS SS 


2 SS 
o essso 


3223 


VBSES FESTA LSSSSSSEgSeS 
SQooo0o0eo0 GOOCOCOCCOCOCOO oO 
= Saat 
Ww 
EEMONLISSN 


ee ae Le See eee eee 
dat abadadbadad 
z ARO 

Ww 

wi 

& 


— 3 rs os eee ed ed ed nd ed od od oo 


004737 


001100 
001276 
001462 
000022 


055614 
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001226 


000006 
000034 
000006 
000034 
001340 
001366 
001340 


001366 
001366 


001226 


001136 


000006 


000006 
001142 
177777 


001140 


MOV ASTACK, SP ;LOAD THE STACK POINTER 
MOV $BASE ,RO ‘RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 [R1 = POINTER TO DEVICE 
MOV #22,$TESTN :;SET TEST NUMBER IN APT MAIL BOX 
JSR PC,CNTCLR :GO CLEAR CONTROLLER 
;WRITE ZEROS, THEN ONES IN RMDA,RMDC=READ AND TEST FOR S-A-0 
MOV #0,RMDA(RO) :LOAD RMDA 
MOV RMDC (RO) [LOAD RMDC 
MOV #-1,RMDA(RO) LOAD RMDA 
MOV #-1.RMDC(RO) = LOAD RMDC 
MOV RMDA(RO),RMDAI :STORE RMDA IN INPUT BUFFER 
MOV RMDC (RO); sSTORE RMDC IN INPUT BUFFER 
CoP pa -RMDAI i1S ANY REGISTER ALL ONES?? 
BIS AXNUDC ,RMDC I ‘SET * iMUSED BITS 
CMP 4-1 ,RMDC 
BEQ 10$ rYES!! 
EMT 42 
10$: 
FEAR E RARER EREEEKEAEEEEREEREEEEREEEEEEREEKEEEKEEEEREEEEEK 
TSTEST 23 DISK ADDRESS TRANSFER TEST 
FEAR EERE 
78123: 
SCOPE :SCOPE CALL 
MOV #STACK, SP : LOAD THE STACK POINTER 
MOV SBASE .R = UNIBUS ADDRESS 
MOV TSTQUE,R1 ns = POINTER TO DEVICE 
MOV #23,$TESTN :;SET TEST NUMBER IN APT MAIL BOX 
CLR RZ ;R3 = ERROR INDICATOR 
JSR PC,CNTCLR :GO CLEAR CONTROLLER 
;WRITE ONES IN RMDA, THEN WRITE ZEROS, READ BACK AND CHECK FOR S-A-1 B!TS 
MOV #-1.RMDA(RO) — ;LOAD RMDA 
MOV +0, RDAC RO) [LOAD RMDA 
MOV RMDA(RO) ,$BDDAT :STORE RMDA AT SBDDAT 
TST SBDDAT 
BEQ 10$ 
CLR SGDDAT 
MOV RO, $BDADR 
ADD #RMDA, SBDADR 
BIS #B1T0,R3 :SET ERROR FLAG 
WRITE ZEROS IN RMDA, THEN WRITE ONES, READ BACK AND CHECK FOR S-A-O BITS 
MOV #0 RMDA (RO? :LOAD RMDA 
MOV #~-1,RMDA(RO) “LOAD RMDA 
MOV RRDACRO) -SBDDAT ‘STORE RMDA AT $BDDAT 
CMP $BDDAT, 
BEQ 20 
MOV 4-1, $GDDAT 





SEQ 0111 


ae am 
LAN 


—_-—-—------ 


g 


@ geee0 © 
PE PERE & 
NONE 


on 


ooo 
aaiadah ahababah tm 


YEGRES SBBVRKRA 
REREEES 
RRR ES 


lelelelelelelelelelololo) 
ad Bhd ad ad ad a aD ad ed ed ed 
FF 
ot 


SRR OW 
wn SSSS 


aR 


Efeetes SEES 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


on MMMM IU 
QVEALARISSSNKYVULUNUSSESE 


Soooc“eco 
td ah eh ad ad ad od od 


& 
Vw 
Ons 





010037 
062737 
104021 
052703 


001027 
012702 


5/3/2 DSKLS TST 1 
ADDRESS TRANSFER TEST 


001136 


055614 
001140 
001136 


177777 
000034 


001777 


000001 


177777 
000000 


000034 
176000 


000001 
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001136 


001136 


001226 


SEQ 0112 
MOV RO, SBDADR 
ADD #RMDA, SBDADR 
BIS #B1T1,R3 :SET ERROR FLAG 
WRITE A SHIFTING 1 BIT PATTERN IN RMDA, READ, AND CHECK FOR STUCK BITS 
20$: TST R3 :OMIT BIT TEST IF ANY ERROR 
BNE 50$ 
~ MOV #1,R2 yR2 = TEST PATTERN 
"MoV #0, MDA (RO) ZLOAD RMDA 
MOV R2.RMDA(RO) [LOAD RMDA 
MOV RMA CRO) SBDDAT :STORE RMDA AT $BDDAT 
CMP SBDDAT ,R2 
BEQ 40$ 
MOV R2,$GDDAT 
MOV RO. $BDADR 
ADD A, SBDADR 
EMT 22 
40$: ASL R2 ;SHIFT TO NEXT BIT 
BNE 30$ “CONTINUE IF R2 NOT ZERO. 
50$: 
; FREER ERE REE ERE EKKEKKKKKEKE 
T*TEST 24 DESIRED CYLINDER TRANSFER TEST 
2 AAR REE 
T8724: 
SCOPE :SCOPE CALL 
MOV #STACK, SP ;LOAD THE STACK POINTER 
MOV SBASE . RO “RO = UNIBUS ADDRESS 
MOV TSTQUE,R1 [R1 = POINTER TO DEVICE 
MOV #24, $TESIN :;SET TEST NUMBER IN APT MAIL BOX 
CLR R3 :RESET ERROR FLAGS 
JSR PC,CNTCLR [GO CLEAR CONTROLLER 
CLR SGDDAT [LOAD EXPECTED 
MOV RO, $8DADR [LOAD REG ADDRESS 
ADD ARMDC, SBDADR 
WRITE ONES IN MDC AND VERIFY THAT UNUSED BITS ARE ZERO 
MOV #-1,RMDC(RO) —: LOAD 
MOV RMDC (RO), SBDDAT SSTORE RMDC AT $BDDA 
BIC #*CXNUDC. $8 iCLEAR ALL USED BITS 
BEG 38 ‘BRANCH IF NO ERROR 
BIS #BI1TO,R3 :SET ERROR FLAG 
WRITE ONES IN RMDC, THEN WRITE ZEROS, READ AND CHECK FOR S-A-1 BITS 
; MOV #-1,RMDC(RO) —: LOAD RMDC 
MOV #0,RMDC (RO) [LOAD RMDC 
MOV RMDC (RO), SBDDAT :STORE RMDC AT $8DDAT 
BIC AXNUDC , [CLEAR UNUSED BITS 
BEG 108 SBRANCH IF NO ERROR 
BIS #B1T0,R3 :SET ERROR FLAG 
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CZRMPAO RMO5S/3/2 DSKLS TST 1 
DESIRED CYLINDER TRANSFER TEST 


S 
& 


a ed ced ed cd aed ced eed ae 
_ 


ee ed ed ed wd od 


SSELRALAVTALS SHIAAIRANVISS 
jelefleleleolelololo) 


0 
avs 


ca ee ee ce ce ce a ce cD cd ced ce ce ce ee ed ed cd ed 
BELFER 
N 


eh ek ee ee ee ee ed eS ed nd ed ed 
S8Bs 
Wh 


Se 


wi 


YP Hs 5 
PESVTSSSS 
4 
SwWwh-o N 





SEQ 0113 


—s ZEROS, THEN ONES IN RMDC, READ AND CHECK FOR S=-A-0 BITS 


MOV #0 MDC (RO) ZLOAD RMDC 
MOV #-1,RMDC(RO)  :LOAD RMDC 
MOV RMD TROD SBDDAT :STORE RMDC AT $8DDAT 
BIS #XNUDC , SEDDA T :SET UNUSED BITS 
MOV #-1,$GDDAT ‘LOAD EXPECTED RESULT 
CMP $GDDAT , SBDDAT iS RC ALL ONES ? 
BEQ 20$ “VES ! 
EMT 40 
BIS #B1T1,R3 :SET ERROR FLAG 
-OMIT BIT TEST IF ANY ERRORS 
50S: 
TST R3 
BNE 60$ 
MOV #1,R2 zR2 = TEST PATTERN 
JEST RMDC WITH SHIFTING ONE BIT 
“Moy #0,.RMDC (RO) ;LOAD RMDC 
MOV R2.RMDC (RO) [LOAD RMDC 
MOV R2,R3 :R3 = EXPECTED RESULT 
BIC AXNUDC ,R3 [CLEAR ANY UNUSED BITS 
MOV RMDC(RO),SBDDAT :STORE RMDC AT $B8DDAT 
CMP SBDDAT,R3 
BEQ 50$ 
MOV R3,$GDDAT 
EMT 41 
BR 60$ :SKIP TO NEXT 
50$: ASL R2 :SHIFT TO NEXT BIT 
BNE 30$ [CONTINUE IF R2 NOT ZERO 
60$: 
FLARE REAR ERE 
T*TEST 25 ILLEGAL REGISTER TEST 
| aaa trata aa hee ini nnn 
TST25: 
SCOPE :SCOPE CALL 
MOV ASTACK, SP ;LOAD THE STACK POINTER 
MOV SBASE ,RO [RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
MOV #25, $TESTN [SET TEST NUMBER IN APT MAIL BOX 
CLR SGDDAT :"'ILR'' SHOULD BE ZERO 
MOV #0,R2 SR2=REGISTER INDEX 
iCLEAR AND VERIFY THAT “‘ILR"’ STATUS IS ZERO 
JSR PC,CNTCLR :GO CLEAR CONTROLLER 
MOV RMER1 (RO), $BDDAT :STORE RMER1 AT $BDDAT 


BIC #*CILR,$BDDAT 


“am 
talmu 





017066 001411 BEQ 20$ BRANCH IF ILR_IS RESET 
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T25 ILLEGAL REGISTER TEST SEQ 0114 T 
215 
1216 017070 005037 001140 CLR $GDDAT :SETUP GOOD DATA, REG ADR 
1217 017074 010037 001136 MOV RO, $BDADR 
1218 017100 062737 000014 001136 ADD #RMER1, SBDADR 
1219 017106 104064 EMT 
1220 017110 000550 BR 140$ 
1222 -WRITE THE REGISTER (INDEX=R2) AND TEST ILR STATUS 
1223 017112 20$: 
1224 017112 010003 MOV RO,R3 ;R3=REG ADDRESS 
1225 017114 060203 ADD R2,R3 
1226 017116 013746 000004 MOV ERRVEC,-(SP) ; ;PUSH ERRVEC ON STACK 
1227 017122 013746 000006 MOV ERRVEC4+2,-(SP) ; PUSH ERRVEC #2 ON STACK 
1228 017126 012737 017170 000004 MOV #40$, ERRVEC :SETUP FOR BUS TIMEOUT 
1229 017134 012737 000300 000006 MOV #PR6,ERRVEC+2 
1230 017142 005004 CLR RG :Re=REGISTER VALUE 
1231 017144 022702 000010 CMP ARMCS2,R2 
1232 017150 001001 BNE 30$ 
1233 017152 111104 MOVB = (R1),R4 :SELECT DRIVE IF RMCS2 
1234 017154 010413 30$: MOV R4, (R3) ;WRITE TEST REGISTER 
1235 017156 012637 000006 MOV (SP) +, ERRVEC+2 sPOP STACK INTO ERRVEC+2 
1236 017162 012637 000004 MOV (SP)+ERRVEC _ ::POP STACK INTO ERRVEC 
1237 017166 000416 BR 60$ 
1238 017170 012716 017176 40$: MOV #45$, (SP) :DUMMY RTI ADDRESS 
1239 017174 000002 RTI ZRESTORE PRIORITY 
1240 017176 45$: 
017176 012637 000006 MOV (SP) +, ERRVEC+2 sPOP STACK INTO ERRVEC+2 
1241 017202 012637 000004 MOV (SP)+°ERRVEC _ ::POP STACK INTO ERRVEC 
1242 017206 020227 000046 CMP R2,ARMEC2 :WERE ALL REGISTERS READ?? 
1243 017212 101003 BHI 50$ TYES!! 
1244 017214 010337 001136 MOV R3,$BDADR 
1245 017220 104074 EMT 74 
1246 017222 000503 50$: BR 140$ 
1248 017224 60$: 
017224 016037 000014 001142 MOV RMER1 (RO) , S8DDAT STORE RMER1 AT $BDDAT 

249 017232 042737 177775 001142 BIC #°CILR, $BDDAT 
1250 017240 023737 001140 001142 CMP SGDDAT.$BDDAT 1S_“'ILR'* OK?? 
1251 017246 001411 BEQ 80$ “YES! ! 
1252 017250 010337 001174 MOV R3,$TMPO SAVE ADDRESS 
1253 017254 032737 000002 001140 BIT #ILR,$GDDAT SSHOULD ‘‘ILR'' BE SET?? 

7262 001002 BNE 70$ TYES!! 
1255 017264 104065 EMT 65 
1256 017266 000401 BR 80S 
1257 017270 70$: 
ah 017270 104066 EMT 66 
1259 sADVANCE TO THE NEXT REGISTER ADDRESS 
1260 017272 80S: 
1261 017272 062702 000002 ADD #2,R2 SINCREMENT. INDEX 
1262 017276 022702 000050 CMP #50, R2 [TIME TO TRY RH70 ? 
1263 017302 101261 BHI ‘BRANCH: IF Ror 
1264 017304 103437 BLO 19s SBRANCH IF ALREADY CHECKED 
1265 ; CMP ARMBAE ,R2 31S THIS RMBAE?? 
1266 : BNE 100$ 
1267 017306 013746 000004 MOV ERRVEC,-(SP) Pus ERRVEC ON STAC 
1268 017312 013746 000006 MOV ERRVEC+2,=(SP) PUSH PRRVEC #2 ON STACK 
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T25 ILLEGAL REGISTER TEST SEQ 0115 
1269 017316 012737 017414 000004 MOV #130$,ERRVEC_  ;SETUP FOR TIMEOUT 
1270 017324 012737 000300 000006 MOV #PR6 ERRVEC #2 
1271 : PUTCS1 #A17!A16 
1272 : GE TBAE 
1273 : BIC #*C<BIT1!BITO>, RMBAE! 
127% : BNE 90$ :BRANCH IF RH70 CONTROLLER 
1275 : BIS #ILR,SGDDAT :"ILR'’ SHOULD BE SET 
1276 :90$: POP ERRVEC+2 
1277 : POP ERRVEC 
1278 :100$: CMP ARMCS3+2,R2 ;DONE ALL LEGAL REGISTERS 
1279 : BNE 110$ ais 
1280 : BIS #ILR, SGDDAT :'ILR'' SHOULD BE SET 
1281 017332 052737 000002 001140 BIS #ILR.$GDDAT T ILR 
1282 017340 012702 000054 MOV #54,R2 TART AT INDEX 54 IF RH70 WITH 22 REG 
1283 017344 60 001400 000000 MOV MATP AIG, Bi a :SET EXTEND BITS 
1284 017352 016037 000050 001402 MOV 50(RO),RMBAEI  ;READ THE EXTENDED BITS 
1285 017360 042737 177774 001402 BIC #177774, RMBAEI CHOP OFF 
1286 017366 001002 BNE 908 [BRANCH IF RH70 WITH 22 R 
1287 017370 012702 000050 MOV OTHERWISE NOT A RH70 OR RRN70 WITH 32 REG 
1288 017374 012637 000006 90$: MOV (eps e ERRVEC#? ; 
1289 017400 012637 000004 MOV (SP)+°ERRVEC : 
1290 017404 022702 000074 110$: CMP #74,R2 [DONE ALL TESTS 
1291 017410 101410 BLOS  140$ YES! ! 
1292 017412 000615 120$: BR 10$ 
1294 017414 012716 017422 130$: MOV #135$, (SP) :DUMMY RTI ADDRESS 
1295 017420 000002 RTI TRESTORE PRIORITY 
1296 017422 135$: 
017422 012637 000004 MOV (SP)+,ERRVEC ——-: ; POP. STACK INTO ERRVEC 
1297 017426 012637 000006 MOV (SP) +; ERRVEC+2 :;POP STACK INTO ERRVEC+2 
1298 017432 140$: ZEND OF TEST 
1300 SAREE REREREEEEREEEEREREREKEEEEEEEREREEEEE 
SSTEST 26 RESET GO BY INIT TEST 
Z ST AAR 
017432 18126: 
017432 SCOPE ZSCOPE CALL 
017434 00024 NOP 
017436 012706 001100 MOV #STACK, SP ;LOAD THE STACK POINTER 
017442 013700 001276 MOV S$BASE ,RO [RO = UNIBUS ADDRESS 
7446 013701 001462 MOV TSTQUE ,R1 *R1 = POINTER TO DEVICE 
fe 017452 012737 000026 001226 MOV #26, $TESIN +;SET TEST NUMBER IN APT MAIL BOX 
1302 017460 004737 055614 JSR PC, CNTCLR :G0 CLEAR CONTROLLER 
1303 017464 010037 001136 MOV RO. $BDADR [SETUP REGISTER ADDRESS FOR MSG 
1305 zSET GO, INITIALIZE AND VERIFY THAT GO IS RESET 
1306 017470 012760 000001 000000 MOV #GO.RMCS1(RO)  ;:LOAD RMCS1 
1308 017476 737 055614 JSR PC,CNTCLR 7GO CLEAR CONTROLLER 
1309 017502 016037 000000 MOV RMCS1(RO) , SBDDAT :STORE RMCS1 AT $BDDAT 
1310 017510 042737 177776 BIC #°CGO, SBDDAT 
1311 017516 001403 BEQ 1 ;BRANCH IF GO IS RESET 
1312 017520 005037 001140 CLR S$GDDAT 
1313 017524 104137 EMT 137 


T26 








CZRMPAQ RMOS/3/2 DSKLS TST 1 


RESET GO BY INIT TEST 


WW 
pat a 
‘Ooo 


Sees 
esse 
NNNNNS 
EERSE 


WN =O 0CONQAU 
°o 
— 
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a 


AN 
o 
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1 
1 
1 
1 
1 
1 
1 


1 


SOVRAR 


0 

017742 
017742 
017750 


g 


001027 
012702 


012760 
010260 


055614 
000024 
177776 
001140 


000001 
000000 
000024 
177776 
001140 
000001 


000000 
000001 
000024 
177776 
000001 
000002 


000002 


000000 
000024 


000024 
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108: ZEND OF TEST 
FF RRR EERE EEEREREKREEEEREREREEREREREEEKEEKEKEEREEEREKEKEEE 
S*TEST 27 DIAGNOSTIC MODE TEST 
SEERA EEREEEEREEREKREKREREERERERKEKEEEREREEEEEKEREE 
TST27: 

SCOPE :SCOPE CALL 

MOV #STACK, SP ;LOAD THE STACK POINTER 

MOV $BASE ,RO [RO = UNIBUS ADDRESS 

MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 

MOV #27, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 

MOV RO, $BDADR ;SETUP REGISTER ADDRESS 

ADD #RMMR1 , SBDADR 

CLR yINITIALIZE ERROR FLAGS 
ZINITIALIZE AND VERIFY THAT 'DMD'' IS RESET 

JSR PC, CNTCLR :G0 CLEAR CONTROLLER 

MOV RMMR1 (RO) , SBDDAT ;STORE RMMR1 AT SBDDAT 

BIC #*CDMD, SBDDAT 

BEG 10 ;BRANCH IF ‘DMD'' IS ZERO 

CLR $GDDAT 

EMT 75 
iSET AND RESET 'DMD'' USING REGISTER TRANSFER-VERIFY "DMD'' NOT S-A-1 

“(MOV #DMD,RMMR1(RO) :LOAD RMMR1 

MOV #0,RMMR1(RO) LOAD RMMR1 

MO RMMAR1 (RO) , SBDDAT ;STORE RMMR1 AT S$BDDAT 

BIC #°CDMD , SBDDAT 

BE 20 ;BRANCH IF DMD NOT S-A-1 

CLR S$GDDAT 

BIS #BITO.R3 :SET ERROR FLAG 
sRESET AND SET 'DMD'' USING REGISTER TRANSFER-VERIFY ‘DMD'' NOT S-A-0 

“* MOV #0,RMMR1(RO)  —«s LOAD RMMRI 

MOV #0MD,RMMR1(RO) LOAD RMMR1 

MOV RMMR1 (RO) , SBDDAT ;STORE RMMR1 AT SBDDAT 

BIC #°CDMD , SBDDAT 

BNE 30$ ;BRANCH IF DMD NOT S-A-0 

MOV #DMD . SGDDAT 

BIS #B1T1,R3 :SET ERROR FLAG 


:1F NO PREVIOUS ERROR, TEST FOR BIT INTERFERENCE WITH SHIFTING 


50s 
TST 
BNE 
MOV 
40$: 
MOV 
MOV 


;ONE BIT PATTERN 


BS Z ANY ERRORS DETECTED?? 
#B1T1,R2 SINITAILIZE DATA PATTERN 
#0.RMMR1(RO) LOAD RMMRI 

R2.RMMR1(RO)  :LOAD RMMRI 
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001142 


MOV RMMR1 (RO), a 
BIC #*CDMD , SBODA 


:STORE RMMR1 AT SBDDAT 


BEG 50$ ;BRANCH IF DMD NOT SET 
MOV R2,$TMPO + SAVE DATA 
MOV R2.$TMPO SSAVE D 
CLR $GDDAT ‘DMD SHOULD BE ZERO 
EMT 100 
jSHIFT TO NEXT DATA BIT AND CONTINUE TES « IF NOT DONE 
me R2 
BNE 40$ 
60$: ZEND OF TEST 
SERA KEREREREEEEEEEEEEEKEEKEEREEREREREREKEEEEEEREERKEEKKKKE 
tRTEST 30 MOL TEST 
2g REAR EERE EERE 
TST30: 
SCOPE sSCOPE CALL 
MOV ASTACK, SP :LOAD THE STACK POINTER 
MOV $BASE ,RO [RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
MOV #30,$TESTN +;SET FEST NUMBER IN APT MAIL BOX 
JSR PC, CNTCLR :GO CLEAR CONTROLLER 
MOV RO. $BDADR SRO=REGISTER ADDRESS 
ADD ARMDS , SBDADR 
CLR R3 :R3=ERROR FLAG 
:SET DIAGNOSTIC MODE AND VERIFY THAT ‘MOL'' IS ZERO 
MOV #DMD ,RMMR1 (RO) 
MOV MDS (RO) . SBDDAT [STORE RMDS AT S8DDAT 
BIC #*CMOL , SBDDAT 
BEQ 10 
CLR $GDDAT 
EMT 
BIS #BITO,R3 7SET ERROR FLAG 


iSeT MAINTENANCE UNIT READY AND VERIFY THAT ‘MOL'’ IS ONE 
"MOVs DMD, RMMR1(RO) = LOAD RMR 
ADMD ! 


MOV TMUR , RMMR1 (RO) LOAD _RMMR1 
MOV RMDS (RO) , 7 gd : STORE RMDS AT S8DDAT 
BIC #*CMOL , SBDDA 

BNE 20 

MOV #MOL . SGDDAT 

EMT 10 


BIS #B1T1,R3 


7 IF NO PREVIOUS ERROR, VERIFY VOLUME VALID IS RESET AND 
;TEST FOR BIT INTERFERENCE 


20$: 

TST R3 zANY ERROR DETECTED?? 
BNE 70$ , t 

MOV RMDS(RO),$BDDAT ;STORE RMDS AT $B8DDAT 


SEQ 0117 


C2! 
T4( 
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T MOL TEST 


SEQ 0118 
1408 020200 042737 177677 001142 BIC = #*CVV, SBDDAT 
1409 020206 001403 BEQ = 25S BRANCH IF VV RESET | 
1410 020210 005037 001140 CLR - $GDDAT | 
1411 020775 106135 EMT 135 
1412 020216 258: 
1413 020216 012702 000001 MoV = #1, R2 INITIALIZE DATA PATTERN 
1414 020222 308: 

G2dee2 012760 900001 000024 MOV —#DMD.RMMR1(RO) LOAD RMMR1 | 
1415 020230 010260 000024 MOV §R2,RMMRI(RO) — LOAD RMMRI 
1416 020234 016037 000012 001142 MOV —- RMDS(RO), SBDDAT TSTORE RMDS AT SBDDAT 
1417 020242 042737 167777 001142 BIC #°CMOL , SBDDAT 
1418 020250 005003 CLR =—s RB ;SETUP EXPECTED ‘MOL’ | 
1419 020252 032702 001000 BIT  § #MUR,R2 | 
1420 020256 00140 BEQ = 40S 
1421 020260 052703 010000 BIS  #MOL,R3 ;*MOL'’ SHOULD BE ONE 
1422 020264 020337 001142 40$: CMP = R3, SBDDAT :1$ MOL OK?? 

1423 020270 001405 BEQ 0-508 :YES!! 
% 020272 010237 001174 MOV  R2, STMPO SAVE TEST PATTERN 
1425 020276 010337 001140 MOV —— R3, SGDDAT | 
426 020302 104103 EMT 108 | 
1428 ;SHIFT TO NEXT PATTERN 
1429 020304 50s: 
1430 020304 042702 000001 BIC ADMD, R2 ;DONT SHIFT DMD 
1431 020310 001002 BNE 60S 
1432 020312 012702 000001 MOV §#DMD,R2 ;DONT TRUNCATE TEST 
1433 020316 006302 60$: ASL R2 SHIFT TO NEXT BIT 
1434 020320 001403 BEQ = 70 :BRANCH IF DONE 
1435 020322 052702 000001 BIS  #DMD,R2 KEEP DMD ON 
1436 020326 000735 BR 308 ® CONTINUE 
1438 020330 708: END OF TEST 
1440 FEAR EREEERREEREEEEEERKEEREEREREEEEREEEEEKERKKKE 
PRTEST 31 WRITE LOCK TEST | 
| 
FLEA EREEREEREREEEEEREEEEEREREEEKEEEEEEEEREREERREK i 

020330 1$131: | 

020330 000004 SCOPE SCOPE CALL | 

020332 4 NOP | 

020334 012706 001100 MOV ASTACK, SP ;LOAD THE STACK POINTER 

020340 013700 001276 MOV —- $BASE,RO ;RO = UNIBUS ADDRESS 

020344 013701 001462 MOV - TSTQUE,R1 :R1_= POINTER TO DEVICE 
1441 020390 012757 000031 001226 MOV #31, $TESTN 7:SET TEST NUMBER IN APT MAIL BOX 
1442 020356 005003 CLR = RB 3R3=E FLAG 
1443 020360 010037 001136 MOV —RO, SBDADR {SETUP REGISTER ADDRESS 
1444 020364 7 000012 001136 ADD —- #RMDS, SBDADR 
1445 020372 005037 001140 CLR —- SGDDAT ;WRL SHOULD BE ZERO 

76 055614 JSR —- PC, CNTCLR G0 CLEAR CONTROLLER 


SET DIAGNOSTIC MODE AND wa “WRL"* IS ZERO 
MOV RMMR1 (RO) 1 


1449 020402 012760 000001 #DMD, 

020410 016037 000012 001142 MOV RMDS(RO), 4 aed 7STORE RMDS AT SBDDAT 
1451 020416 042737 173777 001142 BIC #*CWRL , SBDDAT 
1452 020424 001403 BEQ 10$ ;BRANCH IF WRL IS ZERO 
1453 020426 104104 EMT 104 
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000024 


001142 
001142 


BIS #B1TO,R3 


10$ 
MOV #DMD ,RMMR1 (RO) 
MOV #DMD | MWP, RMMR1 (RO) 
MOV RMDS (RO) SBDDAT 
BIC #*CWRL, SBDDA 
BNE 20 
MOV MRL, SGDDAT 
EMT 105 
BIS #B1T1,R3 
20$ 
TST R3 
BNE 70$ 
MOV #1,R2 


TRANSFER DATA TO RMMRI, 
"MOV #DMD , RMMR1 (RO) 


CLR R3 

BIT AMP ,R2 

BEQ 40$ 

BIS MRL RB 
40S: CMP R3, SADDAT 

BEQ 50$ 

MOV R3,$GDDAT 

MOV °$T 

EMT 


ADVANCE TO NEXT DATA BIT 
gre ADMD ,R2 
BNE 


60$: ASL R2 


;SET ERROR FLAG 
;SET MAINTENANCE WRITE PROTECT AND VERIFY ‘WRL'’ IS ONE 
‘ > igor” RMR 


LOAD _RMMR 
; STORE RMDS AT RSBDDAT 


BRANCH IF WRL IS NOE 
:WRL SHOULD BE SET 


SET ERROR FLAG 
;1F NO PREVIOUS ERROR, TEST FOR BIT INTERFERENCE ON ‘MwP"' 


aos | OTHER ERROR?? 
‘INITIALIZE DATA PATTERN 


READ RMDS AND VERIFY WRL 
LOAD RMMAR1 

LOAD RMMR1 

STORE RMDS AT S8DDAT 


:CLEARUP RECEIVED 
sGENERATE EXPECTED *WRL*’ 


*VRL* 


z:WRL SHOULD BE SET 
4+ Be OK?? 


SAVE’ EXPECTED 
[SAVE DATA PATTERN 


:DONT SHIFT DMD 

DONT TRUNCATE TEST 
SHIFT DATA BIT 

EXIT IF DONE 

KEEP DIAGNOSTIC MODE ON 
CONTINUE TEST 


END OF TEST 


SEAR 


BEQ 70$ 
BIS #DMD ,R2 
30$ 
70$: 
+ STEST 32 DRIVE FAULT TEST 


On Sacer asl 9 pian tan ei gi am etna ae Nectar nat aceite aie 
;SCOPE CALL 

AS pe THE STACK POINTER 

zR1 


TST32: 
SCOPE 


NOP 

MOV MSTACK , SP 
MOV SBASE ,R 
MOV TSTQUE ,R1 


UNIBUS ADDRESS 
POINTER TO DEVICE 





SEQ 0119 


14 
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001226 


001136 


001140 


001142 
001142 


SEQ 0120 
#32, $TESTN 3:SET TEST NUMBER IN APT MAIL BOX 
PC, CNTCLR GO CLEAR CONTROLLER 
R3 z INITIALIZE ERROR FLAGS 
RO, SBDADR ;SETUP REGISTER ADDRESS 
#RMER2 , SBDADR 
SGDDAT :'DVC’’ AND ‘UNS'’ SHOULD BE ZERO 


3SET AND RESET MAINTENANCE DRIVE FAULT, VERIFY THAT ‘DVC'' IS NOT 


; STUCK=AT~ONE 


sVERIFY 
10$: 


20$: 


50$ 


s VERIFY 
40$: 


50$: 


ADMD ,RMMR1(RO) ;LOAD RMMR1 


#0 ,RMER2 (RO) LOAD RMER2 

#0 ,RMER1 (RO) LOAD RMER1 

RMER2 (RO) , SBDDAT jSTORE RMER2 AT S8DDAT 
#*CDVC,SBDDAT ;1S ‘DVC' RESET?? 

1 sves!! 

107 

#B1T0,R3 SET ERROR FLAG 

MUNS , SGDDAT 


THAT "UNS’’ IS SAME AS ‘DVC"’ 


MOV 
BIC 


EMT 


MOV 


RMER1 (RO) , SBDDAT STORE RMER1 AT $BDDAT 
#*CUNS , SBDDAT 

nes Ae UNS" OK?? 

RO, SBDADR ;SETUP REGISTER ADDRESS 


MUNS , SGDDAT ; SHOULD "'UNS'' BE ON?? 
20$ sVES:! 


111 


sRESET AND SET ‘MDF’*, VERIFY THAT ‘DVC*’ IS NOT S-A-0. 


#DVC,$GDDAT ;DVC SHOULD BE ON 
*RMMR1(RO) :LOAD RMMR1 
iMDF 1(R0) ;LOAD RMMR1 
RMER2 (RO) - SBDDAT [STORE RMER2 AT $BDDAT 
;BRANCH IF DVC IS SET 
RO, SBDADR [SETUP REGISTER ADDRESS 
, R2. $BDADR 
#B1T1,23 :SET ERROR FLAG 
$GDDAT [UNS SHOULD BE OFF 


THAT “'UNS’’ IS SAME AS ‘DVC"' 


ae CHANGE DVC TO UNS 
HUNS , $GDDAT 
RMER1 (RO) , SBDDAT STORE RMER1 AT $BDDAT 


#*CUNS , SBDDAT 
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001142 


001136 
001140 


000024 
000042 


001142 
001142 


001140 
001142 


001136 


001226 


CMP SGDDAT , SBDDAT 

BEQ 70$ ;BRANCH IF UNS IS OK 

MOV RO, $BDADR ;SETUP REGISTER ADDRESS 

ADD #RMER1, SBDADR 

BIT #UNS , $GD ; SHOULD UNS BE ON?? 
60$ zYES!! 

EMT 113 
70$ 

60$: 
EMT 114 


ere WERE NO PREVIOUS ERRORS, TEST FOR BIT INTERFERENCE ON 
70$: 


TST R3 
BNE 120$ BRANCH IF ANY OTHER ERRORS 
MOV #1,R2 z INITIALIZE TEST PATTERN 


80$: 
MOV #DMD.RMMR1(RO) ;LOAD RMMR1 
MOV #0, RMER2 (RO) ;LOAD RMER2 
MOV R2,RMMR1(RO) LOAD RMMR1 
MOV RMER2(RO), — ;STORE RMER2 AT S8DDAT 
BIC coe ,SBDDAT 


GET RESULTS 
CLR SGDDAT ;SETUP EXPECTED 
BIT AMDF ,R2 [WAS MDF SET?? 
BEQ 90$ : 


BIS ADVC ,SGDDAT :YES-DVC SHOULD BE ON 


90$: CMP SGDDAT , SBDDAT 


BEQ 100$ BRANCH IF DVC IS OK 
MOV RO, $8DADR SETUP REGISTER ADDRESS 
ADD ARMER2 , SBDADR 

MOV R2,$TMPO SAVE TEST PATTERN 


EMT 115 
:SHIFT TO NEXT BIT POSITION 
100$: 


BIC #DMD ,R2 DONT SHIFT DMD 
BNE 


MOV -R2 — TRUNCATE TEST 
110$: ASL R2 FT 
BEQ 120$ EXIT IF DONE 
BIS #DMD ,R2 :KEEP DMD ON 
BR 80$ ; CONT INUE 
120$: END OF TEST 
Itt iii rir iti rit iit ii titi ttt iti t iti t tii t itt t titi t itt ttt 
SRTEST 33 SEEK ERROR TEST 


SURE AEE ERERE ERE EREEREREEREEREKRERE 


TST33: 


a SCOPE CALL 

MOV #STACK, SP ;LOAD THE STACK + 1 pe 
MOV SBASE ,RO ;RO = UNIBUS ADDRESS 

MOV TSTQUE ,R1 :R1_= POINTER TO DEVICE 
MOV #33, $TESTN 


>;SET TEST NUMBER IN APT MAIL BOX 
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133 SEEK ERROR TEST SEQ 0122 
| 1604 
| 1605 021364 004737 055614 JSR PC,CNTCLR 3GO CLEAR CONTROLLER 
1606 021370 005003 CLR R3 SCLEAR ERROR FLAGS 
1607 021372 010037 001136 MOV RO, SBDADR :SETUP REGISTER ADDRESS 
1608 021376 062737 000042 001136 ADD #RMER2 , SBDADR 
1610 ;SET DIAGNOSTIC MODE AND VERIFY THAT ‘'SKI'' CAN BE RESET 
1611 021404 012760 000001 000024 MOV #DMD,RMMR1(RO) ;LOAD RMMR1 
1612 021412 012760 000000 000042 MOV #O.RMER2(RO) LOAD RMER2 
1613 021420 016037 000042 001142 MOV RMER2 (RO) , SBDDAT ;STORE RMER2 AT $BDDAT 
1614 021426 042737 137777 001142 BIC #*CSK1,$BDDAT 
1615 021434 001405 BEQ 10$ ;BRANCH IF SKI IS RESET 
1616 021 005937 001140 CLR $GDDAT :SKI SHOULD BE ZERO 
1617 021442 104116 EMT 
1618 021444 052703 000001 BIS #B1T0,R3 :SET ERROR FLAG 
1620 ;SET MAINTENANCE SEEK ERROR AND VERIFY THAT ‘‘SKI'’ CAN BE SET 
1621 021450 10S: 
lege 021450 012769 000001 000024 MOV ADMD , RMMR1 (RO) 
1623 021456 012760 000000 000042 MOV #0,RMER2(RO) = LOAD RMER2 
1624 021464 012760 000201 000024 MOV #DMD 'MSER,RMMR1 (RO) ;LOAD RMMR1 
1625 021472 016037 000042 001142 MOV RMER2 (RO) . $BDDAT :STORE RMER2 AT $BDDAT 
021500 042737 137777 001142 BIC #*CSK1,$BDDAT 
1627 021506 001005 BNE 20$ ;BRANCH IF SKI IS SET 
1628 021510 012737 040000 001140 MOV #SK1,$GDDAT SCANT SET SKI 
1629 021516 052703 000002 BIS #BIT1,R3 TSET ERROR FLAG 
1631 : IF NO PREVIOUS ERROR, CHECK FOR BIT INTERFERENCE SETTING MAINTENANCE 
1632 >SEEK ERROR. 
1633 021522 20$: 
1634 021522 005703 TST R3 
1635 021524 001051 BNE 70$ ;BRANCH IF ANY OTHER ERRORS 
1636 021526 012702 000001 MOV #1,R2 SINITIALIZE TEST PATTERN 
1637 021532 30S: 
1638 021532 012760 000001 000024 MOV #DMD,RMMAR1(RO) ;LOAD RMMR1 
1639 021540 012760 000000 000042 MOV #0.RMER2(RO? [LOAD RMER2 
0 021546 010260 000024 MOV R2,RMMR1(RO)  :LOAD RMMRI 
1641 021552 016037 000042 001142 MOV RMER2(RO), SBDDAT zSTORE RMER2 AT $BDDAT 
1642 021560 042737 137777 001142 BIC #°CSKI,SBODAT GET SKI STATUS 
1643 021566 005037 001140 CLR $GDDAT ZSETUP EXPECTED RESULT 
1644 021572 032702 000200 BIT #MSER,R2 
1645 021576 001403 BEQ 40$ 
1646 021600 052737 040000 001140 BIS #SKI,$GDDAT :SKI SHOULD BE ON 
1647 021606 023737 001140 001142 40$: CMP SGDDAT , SBDDAT 
1648 021614 001403 BEQ 50$ :BRANCH IF SKI IS OK 
649 021616 010237 001174 MOV R2,$TMPO ZSAVE TEST PATTERN 
1650 021622 104120 EMT 120 
1652 ;ADVANCE TEST PATTERN IN R2 
1653 021624 50$: 
1654 021624 


042702 DONT SHIFT DMD BIT 
001002 BNE 


:DON7 TRUNCATE TEST 
SHIFT TO NEXT BIT 
sEXIT IF DONE 


KEEP DMD ON 
CONTINUE TEST 
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001226 


000024 
001142 
001142 


001140 


70$: 


TRTEST 34 


18134: 


END OF TEST 
IPP i Pier i ric tt titi titi t iti tiititititiity 
PIP TEST 
REAR ERATE AAA E ERE 
SCOPE CALL 
AMSTACK , SP ;LOAD THE STACK POINTER 
SBASE RO :RO = UNIBUS ADDRESS 
TSTQUE, ate :R1 = POINTER TO DEVICE 
#34, STEST 7;SET TEST NUMBER IN APT MAIL BOX 
PC,CNTCLR G0 CLEAR hae 
R3 ;RESET ERROR FLAGS 
RO, $BDAD 7SETUP REGISTER ADDRESS 
#RMDS, SBDADR 


sSET MAINTENANCE ON CYLINDER *MOC’' AND VERIFY THAT ‘PIP’’ CAN BE RESET. 
1(RO) ;LOAD RMMR1 


ADMD MOC, RMMR1 (RO) ;LOAD RMMR 
RMDS (ROD. ,SBDDAT ;STORE RMDS AT SEDDAT 


#°CPIP, $BDD 
10$ BRANCH IF PIP IS RESET 
+d 


#B1TO,R3 SET ERROR FLAG 


icon. MAINTENANCE ON CYLINDER AND VERIFY THAT ‘PIP’' CAN BE SET 


31F NO PREVIOUS 
20$: 


50$ 


40$: 


TST 
BNE 
MOV 


;WRITE THE TEST 


#DMD,RMMR1(RO) ;LOAD RMMR1 
RMDS(RO) ,SBDDAT :STORE RMDS AT SBDDAT 
#°CPIP, SBDDAT 


20 BRANCH IF PIP IS SET 
1 cea 
#B1T1,R3 SET ERROR FLAG 
ERROR, TEST FOR ADJACENT BIT SETTING ‘™OC"’ 
R3 
70$ :BRANCH IF ANY PREVIOUS ERROR 
#1,R2 INITIALIZE TEST PATTERN 
PATTERN, CHECK MOC USING PIP 
#DMD,.RMMR1(RO) ;LOAD RMMR1 
R2,RMMAR1 (RO) :LOAD RMMR1 
RMDS(80) ,SBDDAT ; STORE ves of $BDDAT 
#*CPIP,$BDDAT  ;GET PIP STATUS 

DAT SETUP EXPECTED RESULT 
out Re 


#PIP,SGDDAT PIP SHOULD BE SET 
$GDDAT, SBDDAT 


SEQ 0123 


S38 


NOUSWN—O 
Faw 


ooooo°oo 


SO 
Oo 
Nm 
Nm 
= 
ad 
°o 


NNNVNGGG 


kd ad ad ad od 
WwyNss 


MrMprorrnrnrr 


ro 


Ok ek a a ek dd dd dd 
NNN 


N 
* 


mn 

Wwn— 
o 
Nm 
N 
— 
™ 
Nm 


022142 


1725 

1726 022170 
727 022172 
728 022176 
729 022204 


CZ7RMPAQ RMOS/3/2 DSKLS 
Ts PIP TEST 


001403 
010237 
104123 


042702 
001002 
012702 
006302 
001403 


052702 
000734 


104124 
052703 





TST 1 


001174 


000001 
sited 
000024 
157777 
000001 


000001 
020001 
000024 
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BEQ 50$ ;BRANCH IF PIP OK 
MOV R2,$TMPO ‘SAVE TEST PATTERN 
EMT 123 
jADVANCE THE TEST PATTERN 
> | one #DMD ,R2 :DONT SHIFT DMD 
BNE 60$ 
MOV #DMD ,R2 ;DONT TRUNCATE TEST 
60$: ASL R2 SSHIFT BIT 
BEQ 70$ ‘EXIT IF DONE 
BIS #DMD ,R2 ‘KEEP DMD ON 
30$ S CONTINUE TEST 
70$: ZEND OF TEST 
FLARE KEKEKEKEE 
T*TEST 35 EBL TEST 
2 AAA AHRKKERREREE EEE EEE 
TST35: 
SCOPE :SCOPE CALL 
MOV ASTACK,SP ;LOAD THE STACK POINTER 
MOV SBASE ,RO [RO = UNIBUS ADDRESS 
MOV TSTQUE,R1 [R1 = POINTER TO DEVICE 
001226 MOV #35, $TESIN :;SET TEST NUMBER IN APT MAIL BOX 
CLR R3 ;RESET ERROR FLAGS 
MOV RO, SBDADR SSETUP REGISTER ADDRESS 
001136 ADD 1,$8DADR 
CLR $GDDAT ;SETUP EXPECTED RESULT 
;CLEAR AND VERIFY THAT END OF BLOCK IS RESET 
JSR /CNTCLR 3G0 CLEAR CONTROLLER 
001142 MOV RMMR1 (RO), $BDDAT :STORE RMMR1 AT S$BODAT 
001142 BIC #*CEBL, $BDDAT 
BEG 10$ ;BRANCH IF EBL IS RESET 
EMT 124 
BIS #BITO,R3 :SET ERROR FLAG 
ise AND RESET DIAGNOSTIC END OF BLOCK, CHECK FOR EBL S-A-1. 
000024 “mov #DMD.RMMR1(RO) ;LOAD RMMR1 
24 MOV ADMD ! DEBL ,RMMR1 (RO) ;LOAD RMMR1 
000024 MOV #DMD.RMMRI(RO) ;LOAD RMMR1 
001142 MOV RMMR1 (RO), $BDDAT ;STORE RMMR1 AT $BDDAT 
001142 BIC #°CEBL, 
BEQ 208 ;BRANCH IF EBL IS RESET 
EMT 125 
BIS #B1TO,R3 :SET ERROR FLAG 
sRESET AND SET DIAGNOSTIC END OF BLOCK, CHECK FOR EBL S-A-0 
000024 "MOV #DMD,.RMMR1(RO) ;LOAD RMMR1 
24 MOV #DMD ' DEBL , RMMR1 (RO) ;LOAD RMMR1 
001142 MOV RMMR1 (RO) . $BDDAT ‘STORE RMMR1 AT $BDDAT 


SEQ 0124 


C2 
T4 





CZRMPAO RMO5/3/2 DSKLS 
TS5 EBL TEST 


> 

QE 
oO 
& 


022330 042737 
2 001006 


59 022350 033768 


NYG 
RLS 
So 


oo 

NMononoeryg 

nononong 
aa 
or 


005703 
001042 
012702 


ARS 
fo) 


o 
N 


NN NNN NS 
BLES 
oO 
™m 
3 


Oo 
Oo 
oO 
™ 
3 
fo] 
— 
Nm 
g 


RRR ISSRISARASAS Ja oaNaa TS 
SsSsssss pelojejejelejole) 
iS 
°o 
g 
S 
3 


0. 
022470 012706 
022474 013700 





TST 1 


157777 
020000 
000002 


000001 


000001 
000024 
000024 
157777 
157777 
001142 


001140 
001174 


000001 
000001 


000001 
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SEQ 0125 
BIC #*CEBL ,$BDDAT 
BNE 30$ 
MOV #EBL , SGDDAT 
EMT 
BIS #B1T1,R3 


;BRANCH IF EBL IS SET 


;SET ERROR FLAG 


iif NO PREVIOUS ERRORS, TEST FOR ADJACENT BIT INTERFERENCE ON ‘DEBL'*. 
; TST R3 
BNE 70$ ;BRANCH IF ANY ERROR 
MOV #1,R2 + INITIALIZE MEST PATTERN 
jwRiTe. READ AND VERIFY THE TEST PATTERN IN R2 
“MOV #DMD,RMMR1(RO) ;LOAD RMMR1 
MOV R2,RMMR1(RO) :LOAD RMMR1 
MOV 1(RO) , $BDDAT ;STORE RMMR1 AT $BDDAT 
BIC #°CEBL , $BDDAT 
MOV R2,R3 :GENERATE EXPECTED RESULT 
BIC #*CEBLR3 
CMP R3, SBDDAT 
BEQ 50$ BRANCH IF EBL IS OK 
MOV R3,$GDDAT [SAVE EXPECTED RESULT 
MOV R2.$TMPO SSAVE TEST PATTERN 
EMT 127 
gSHIFT TO NEXT BIT POSITION 
j BIC DMD »R2 :DONT SHIFT DMD 
MOV ADMD ,R2 ;DONT TRUNCATE DMD 
60$: ASL R2 :SHIFT TO NEXT BIT 
BEG 70$ sEXIT IF DONE 
BIS #DMD ,R2 [KEEP DMD ON 
BR 40$ [CONTINUE TEST 
70S: ZEND OF TEST 


EP tiri irri iii i tri iii i iii tii titi itt i iti itt itt iti ty 

s*TEST 36 LAST SECTOR, LAST TRACK TEST 

is 

* TRANSFER TEST PATTF°N TO RMDA THEN VERIFY LAST SECTOR ‘1S'' AND 

oe en ook "LST’* FOR EACH TRANSFER. THE TABLE BELOW LISTS MTHES VALUE 
F RMDA FOR WHICH LS AND LST ARE SET. 


: 18 BIT MODE 16 BIT MODE 
3 LS = — XXx035 XXx037 
; #RMO2/03 © LST= 00235 002037 
; #RMOS LST= 011035 011037 
23 ie 5 ATT nh, bbs. AR, La... SO ET 
1ST36: 
SCOPE ZSCOPE CALL 


NOP 
MOV AMSTACK, SP :LOAD THE STACK POINTER 
MOV $BA 


SE ,RO 3RO = UNIBUS ADDRESS 





CZRMPAQ RMOS/3/2 DSKLS TST 1 
T% LAST SECTOR, LAST TRACK T 


BES 
re 


00 00 00 00 09 00 Co 00 00 CO 
end aa aa an td ed cd ed ced ed 
OWOONAUSW—O 
Oo 
~m 


~ 


a8 
% 
RR 
~ 


0 
022630 
2632 


a a dk ed ed ed 2d ws = 


RESSERESER 


aa6 
So o 
SS seesee 
So 


022654 
1833 022656 
1834 0 
1835 022670 
166 022672 


1 734 

+ 244 022740 

1849 022742 
50 


7 
1858 022770 
1859 022770 
1860 022772 
1861 022774 


013701 
012737 


0004 
123702 
001003 


052737 


001004 
023702 
001007 
000403 
023702 
001003 


052737 


032737 


001462 
000036 


000035 


055614 
001440 
000006 


000024 
001356 
177773 

149 


010000 
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001226 


001136 


023022 
023022 


001140 
001142 


001176 


001142 
001142 


001440 


001440 


MOV TSTQUE ,R1 
MOV #36, $TESTN 


R2 
MOV RO, $BDADR 
ADD sal , SBDADR 


RMOF 0 
MOV LSTRK,80$ 
MOVB #035,80$ 


10$: 
JSR PC, CNTCLR 
MOV RMOF 0, RMOF (RO) 
MOV R2,RMDA(RO) 
MOV RMMAR1 (RO) ,RMMR1 
MOV RMMR11, SBDDAT 
BIC #°CLS, $BDDAT 
CLR $GDDAT 
BIT #FMT16,RMOFO 
BNE 20$ 
CMPB =—s- BOS, R2 
BNE 35$ 
BR 30$ 

208:  C(MPB _BOS.R2 
BNE 35$ 

30$: BIS #LS,SGDDAT 

35$: CMP SGDDAT , SBDDAT 
BEQ 40$ 
MOV R2,$TMPO 
MOV RMOFO,$TMP1 
EMT 130 


40$: MOV RMMR 11, $8DDAT 
BIC eockse” SBDDAT 
SGDDAT 


BIT #FMT16,RMOFO 
50$ 


BNE 
CMP 80$,.R2 
BNE 65$ 
BR 60$ 
50$: CMP 80$,.R2 
BNE 65$ 
60$: BIS ALST,SGDDAT 
65$: CMP SGDDAT , $BDDAT 
BEQ 70$ 
MOV R2,$TMPO 
EMT 131 
BR 30s 


zADVANCE TO NEXT TEST PATTERN, 
:18 BIT TESTS DONE. 


70$: 
INC R2 
BNE 10$ 
BIT #FMT16,RMOFO 


3R1_= POINTER TO DEVICE 
7;SET TEST NUMBER IN APT MAIL BOX 


: INITIALIZE TEST PATTERN 
SETUP REGISTER ADDRESS 


START IN 18 BIT MODE 
SETUP LAST TRACK AND 
:LAST SECTOR (29.) 
:GO CLEAR CONTROLLER 
LOAD RMOF 

:LOAD est 
sVERIFY ‘LS’ 


GENERATE EXPECTED ‘1LS'’ 
716 BIT MODE ? 


sVES: ° 
:18 BIT MODE LAST SECTOR ? 
zNO !! 


TORE RMMR1 IN INPUT BUFFER 


:16 BIT MODE LAST SECTOR ? 
zNO !! 


LS SHOULD BE ON-16 BIT MODE 
BRANCH IF LS_IS CORRECT 

SAVE TEST PATTERN 

;SAVE OFFSET REGISTER FOR ERROR 
SKIP TO NEXT 

:VERIFY *LST"’ 


; GENERATE = “st 
316 BIT MODE ?? 


:18 air MODE LAST TRACK/SECTOR ? 
1 BIT MODE LAST TRACK/SECTOR ? 
LST SHOULD BE SET 


SAVE TEST PATTERN 
SKIP TO NEXT 

CHANGE TO 16 BIT MODE IF ALL 
: INCREMENT PATTERN 


SCONTINUE IF NOT : 
;DONE 16 BIT TEST ? 


SEQ 0126 


C2 
14 
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CZRMPAO RMOS/3/2 DSKLS TST 1 MACRO VO3.01 11-APR-80 13:58:55 PAGE 12-38 
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1 

1 

1 

1 
1866 
186 
1 

1 

1 

1 


1010 
863 023004 012737 010000 001440 
864 023012 112737 000037 023022 
865 023020 000652 


1 
023044 012737 000037 001226 


1875 
He 023052 010037 001136 
1877 023056 062737 000006 001136 


1878 005037 
1879 023070 012737 000001 001140 
1880 023076 012737 000035 023476 


1881 

1882 

1883 

1884 

1885 

1886 

1887 

1888 

1889 023104 

1890 023104 737 055614 

1891 023110 012760 000001 000024 
1892 023116 012760 000000 000014 
1893 023124 012760 000000 

1894 023132 012760 000000 

1895 023140 013760 001440 

1896 023146 013737 001440 001174 
1897 023154 012760 2 
1898 023162 012760 1 

1899 

1900 

1901 023170 

1902 023170 012760 060091 000024 
1903 023176 012760 040001 4 
1904 0, 016037 001142 
1905 023212 023737 001142 001140 
1906 023220 001402 

1907 023222 104132 

1908 023224 16 

1909 

1910 

1911 





BNE 90$ sYES! 
MOV #FMT16,RMOFO O 16 BIT FORMAT 
MOVB = #037, 80$ 
BR 10$ 


80$: .WORD 0 ;HOLDS LAST TRACK/SECTOR ADDRESS 
90$: 
SERA ERE EEREEE EEE 
tSTEST 37 RMDA COUNT TEST 
2 J EAA EEEEEEREEKEERKEREKEEEEEEREEEEREREEEERKEEREREEE 
1S137: 
SCOPE :SCOPE CALL 
MOV ASTACK, SP ;LOAD THE STACK POINTER 
MOV $BASE ,RO :RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 =R1 = POINTER TO DEVICE 
MOV #37, STESTN ::;SET TEST NUMBER IN APT MAIL BOX 
MOV RO, $8DADR ;SETUP REGISTER ADDRESS 
ADD #RMDA, $BD 
CLR RMOFO ZSTART WITH 18 BIT FORMAT 
MOV #1 SGDDAT :SETUP FIRST COUNT 
MOV #29.,11 [LAST SECTOR 


: INCREMENT SECTOR COUNT USING DIAGNOSTIC END OF BLOCK STARTING AT 
:SECTOR 0 AND CONTINUING UNTIL TRACK ADDRESS INCREMENTS 

-CLEAR THE MASSBUS 

-SET FORMAT 

«LOAD SECTOR AND TRACK ADDRESS 


-ENABLE DEBUG CLOCK 
-SET GO BIT 


mb e Be Be Be Be 


O$: 
JSR PC,CNTCLR :GO CLEAR CONTROLLER 
MOV #DMD.RMMR1(RO) ;LOAD RMMR1 
MOV #0,RMER1 (RO) LOAD RMER1 
MOV #0,RMER2(RO) ;LOAD RMER2 
MOV #0, ARO) 3 RMDA 
MOV RMOFO,.RMOF (RO) ;:LOAD RMOF 
MOV RMOFO,$TMPO ;SAVE OFFSET FOR ERROR TYPE 
MOV #DMD ! DBEN ,RMMR1 (RO) ;LOAD RMMR1 
MOV #GO.RMCS1(RO)  ;LOAD RMCS1 

aoe! AND RESET EBL TO INCREMENT RMDA THEN VERIFY RMDA. 


MOV #DMD ! DBEN! DEBL , RMMR1 (RO) ZLOAD RMMR1 
MOV ADMD ' DBEN. RMMR1 (RO) LOAD 1 

MOV RMDA(RO), SBDDAT :STORE RMDA AT $BDDAT 

CMP SBDDAT , $GDDA 


3: 735 BRANCH IF RMDA OK 
BR 50$ OUT OF SYNC~SKIP TO NEXT 


sADVANCE EXPECTED SECTOR COUNT AND CONTINUE IF ONE CYCLE NOT 
COMPLETE 


TEST 
Ser LAST SECTOR FOR 16 BIT MODE (31.) 


14 





CZRMPAO RMOS/3/2 DSKLS TST 1 
T37 RMDA COUNT TEST 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


wWOooODd000090 
ot ot SS 
OONAOUSE 

tactactaet 

Ww 

S 


OO 
WIS 
S 


DO 

0 
Nm 

wre 


1924 023262 


‘oO 
A) 
— 


023376 
023376 


SESE PER ESI I ISIS 
oS oo 


| 
| 
| 
| 
} 
| 
| 
' 


013737 
012737 


005037 
013737 
001404 
113737 
000720 
032737 
001015 


012737 
012737 
000400 


023476 
000400 


055614 
001440 
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30$: 

INC SGDDAT ina fee 1 EXPECTED SECTOR 
023476 ee tg ora S THE LAST SECTOR JUST COUNTED?? 

CLRB SGDDAT <VES-NEXT SECTOR SHOULD BE ZERO 
INCB SGDDAT+1 ; INCREMENT TRACK ADDRESS 

40$: TSTB SBDDAT HAS A FULL CYCLE BEEN COUNTED?? 
BEQ 50$ YES -DO NEXT 
BR 25$ :CONTINUE SECTOR TEST 


: INCREMENT TRACK COUNT USING DIAGNOSTIC END OF BLOCK. 


START AT TRACK 0, 


LAST SECTOR AND COUNT ONE COMPLETE TRACK CYCLE. 
001414 "MOV 110$,RMDAO ;START SECTOR ADDRESS = 0 
001140 MOV #TA1.$GDDAT ‘FIRST VALUE AFTER INCREMENT 
: - CLEAR THE MASSBUS 
: FORMAT 
: “PAD LAST SECTOR ADDRESS AND TEST TRACK ADDRESS 
: “ENABLE DEBUG CLOCK 
‘be “SET GO BIT 
eee ae PC,CNTCLR :GO CLEAR CONTROLLER 
000032 MOV RMOFO,RMOF (RO) :LOAD RMOF 
MOV RMDAO.RMDA(RO) :LOAD RMDA 
000024 MOV #DMD ,RMMRI(RO)  : 
000024 MOV #DMD ' DBEN, RMMR1 (RO) ;LOAD RMMR1 
MOV #GO.RMCS1(RO)  ;LOAD RMCS1 
:CLOCK RMDA USING DIAGNOSTIC END OF BLOCK 
000024 MOV #DMD ! DBEN! DEBL ,RMMR1 (RO) :LOAD RMMR1 
000024 MOV #DMD | DBEN. RMMR1 (RO) ZLOAD RMMR1 
ZVERIFY RMDA ACCORDING TO $GDDA 
001142 MOV RMDA (RO) ;SBDDAT. ZSTORE RMDA AT $BDDAT 
001142 CMP $GDDAT , $8DD. 
BEQ 70$ 
EMT 133 
BR 120$ ZOUT OF SYNC-SKIP TO NEXT 
SETUP FOR NEXT INCREMENT OF RMDA TRACK ADDRESS 
"  'INCB ss $GDDAT yADVANCE EXPECTED TRACK 
001331 CMP SBDDATS, eLSTRK+1" e zWAS THE LAST TRACK JUST COUNTED?? 
CLR $GDDAT $ YES-NEXT TRACK, SECTOR SHOULD BE ZERO 


tr Hi A FULL CYCLE BEEN COUNTED?? 


001414 80S: mov SBDDAT ,RMDAO 
001414 MOVB _«110$, RMDAO : INCREMENT FROM LAST SECTOR 
a BR 60$ 
001440 P BIT #716 ,RMOF O HOM BOTH FORMATS?? 
001440 MOV #FMT16,RMOFO = :SET FORMAT BIT FOR 16 
023476 mov #31. .1108 :SET LAST SECTOR FOR 16 BIT MODE 


SEQ 0128 





C yer RMO5/3/2 DSKLS_TST 1 


RMDA COUNT TEST 


1969 023464 
1970 023472 


1971 

19% 023476 
197 

1974 023500 
1975 

1976 


we 
1979 023526 
32 


1989 


SES EIEES 
See 


012737 
000137 


000000 


012737 
010037 
062737 
005037 
013737 
112737 
7 


00473 
012737 
012760 


005237 
022737 


000001 
023104 


055614 
000001 
000000 


055614 
001440 
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001140 100$: MOV 
JMP 


001226 


001136 
001414 
001414 


001140 
000034 


001140 


#1, $GDDAT :SET FIRST COUNT VALUP 
10$ TREPEAT TEST 


110$: .WORD 0 STORAGE FOR LAST SECTOR VALUE 


120$: 
FREAK EEEEREKEREREAEHERRREERREREERERKEEREKEEREEREEKE 
SSTEST 40 RMDC COUNT TEST 
fF AAR AERA EEEEREEEKEKEEREREKEREERERAEKEEKEREREEEKREEE 
TST40: 
—-* ;SCOPE CALL 
MOV ASTACK, SP + LOAD THE STACK POINTER 
MOV S$BASE ,RO ;RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 +R1 = POINTER TO DEVICE 


MOV #40 ,STESTN 7;SET TEST NUMBER IN APT MAIL BOX 


CLEAR RMDC, SET FORMAT AND SETUP PROGRAM PARAMETERS 
MOV RO, S8DADR 2 SETUP REGISTER ADDRESS 


ADD #RMDC , SBDAD 
CLR RMOF O zSTART WITH 18 BIT FORMAT 
MOV LSTRK,RMDAO SETUP LAST TRACK AND 
10$ MOVB #29. ,RMDAO sLAST SECTOR 
JSR PC, CNTCLR G0 CLEAR CONTROLLER 
MOV #1, $GDDAT LOAD FIRST INCREMENTAL VALUE 
MOV #0 ,RMDC (RO) LOAD RMDC 
: -CLEAR THE MASSBUS 
: -SET OFFSET 
: -LOAD LAST SECTOR AND TRACK ADDRESS 
: -ENABLE DEBUG CLOCK 
ios -SET GO BIT 
JSR PC,CNTCLR :GO CLEAR CONTROLLER 
MOV RMOFO,RMOF (RO) ;LOAD RMOF 
MOV . SAVE FOR ERROR MSG 
MOV RMDAO,RMDA(RO) ;LOAD RMDA 
MOV #DMD . RMR (RO) ;LOAD RMMR1 
MOV !DBEN, RMAR1 LOAD RMMR1 


(RO) 
MOV #GO,RMCS1(RO) LOAD RMCS1 


: CLOCK yo © omy ~~ ADDRESS USING DEBL 
#DMD ! DBEN! DEBL ,RMMR1 (RO) LOAD RMMR1 
MOV #DMD ! DBEN 


(RO) LOAD RMMR 
MOV RMDC (RO), NEBDDAT TSTORE RMDC AT SBDDAT 


CMP SGDDAT , SADDAT 
BEQ 30$ BRANCH IF RMDC=RMDC+1 
EMT 140 
BR 60$ ;OUT OF SYNC-SKIP TO END 
gADVANCE EXPECTED RESULT FOR NEXT INCREMENT 
"INC SGDDAT yADVANCE NEXT RESULT 
CMP #1024.,$GDDAT SHOULD NEXT VALUE BE ZERO?? 


SEQ 0129 


C2! 


4 


CZRMPAO RMOS/3/2 DSKLS TST 1 
T40 RMDC COUNT TEST 


762 
2027 023764 
2028 
2029 


2030 
2031 024012 
2032 024016 
2033 


2034 024024 


2060 
2061 024124 
2062 024124 





032737 
001007 
012737 
112737 
000676 


112737 


012760 


055614 
00 


000012 
175777 
001140 


000001 
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001440 


001440 
001414 


000024 


40$: 


50$: 


60$: 


40$ sNO!! 
CLR $GDDAT 2 YES-RMDC SHOULD OVERFLOW 
TST $BDDAT iS ONE CYCLE COMPLETE?? 
BEQ 50$ sYES!! 

20$ : CONTINUE 
BIT #FMT16,RMOFO : DONE 16 BIT FORMAT MODE ? 
BNE 60$ sYES ! 


3SET ié BIT FORMAT AND 
LOAD LAST SECTOR FOR 16 BIT MODE 
TREPEAT TEST 


MOV #FMT16,RMOFO 
MOVB #31. ,RMDAO 
BR 10$ 


5 FREER REREEEEEEEEEEEEEEKEREKEEEEKEEEEREEEEEEEKEEREEKKKKEE 


s*TEST 41 


TST41: 


LBT TEST 
PEPtitTi tii iii iit ii iii tit iii tititititititi ttt t iti tt 
SCOPE SCOPE CALL 
MOV STACK, SP LOAD THE STACK POINTER 
MOV SBASE ,RO RO = UNIBUS ADDRESS 


wmebS ee Be Be Be Be Be 


O$: 


20$: 


MOV TSTQUE ,R1 
MOV #41, $TESTN 


MOV RO, $BDADR 
ADD #RMDS , SBDADR 


CLR RMOF O START WITH i AY MODE 
MOV LSTRK ,RMDAO SETUP LAST K AND 
MOVB #29. ,.RMDAO ;LAST SECTOR 


CLEAR iHE MASSBUS 
SET FORMAT 

LOAD LAST TRACK AND SECTOR 
LOAD LAST CYLINDER 


VERIFY THAT ‘LBT’’ IS RESET 


:R1 = POINTER TO DEVICE 
>;SET TEST NUMBER IN APT MAIL BOX 


SETUP REGISTER ADDRESS 


JSR PC, CNTCLR 7GO CLEAR CONTROLLER 
MOV #822. ,.RMDC(RO) LOAD RMDC 
MOV RMDAO.RMDA(RO) LOAD RMDA 
MOV RMOFO.RMOF (RO) :LOAD RMOF 
MOV RMOF 0. $TMPO 7SAVE OFFSET REG FOR ERROR MSG 
MOV RMDS(RO) ,SBDDAT :STORE RMDS AT SBDDAT 
BIC #*CLBT, SBDDAT 
BEQ 20$ :BRANCH IF LBT IS RESET 
CLR $GDDAT [LBT SHOULD BE ZERO 
EMT 141 
- ENABLE DEBUG CLOCK 
SET GO 
FORCE EBL 


VERIFY THAT LBT IS SET 


MOV #DMD,.RMMR1(RO) ;LOAD RMMR1 


SEQ 0130 


C2 


B11 | 
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141s LBT TEST SEQ 0131 | 


TES 
2063 024132 012760 000000 000014 MOV #0,RMERT(RO) = LOAD RMER1 
2064 024140 012760 000000 000042 MOV #O,RMER2(RO) LOAD RMER2 
2065 024146 012760 000001 000000 MOV #G0,RMCS1(RO) LOAD RMCS1 
024154 012760 060001 000024 MOV DMD ' DBEN! DEBL ,RMMR1 (RO) ;LOAD RMMR1 
2067 024162 012760 040001 000024 MOV #DMD | DBEN. RMMR1 (RO) ZLOAD RMMR1 
024170 016037 900012 001142 MOV RMDS (RO), SSDDAT ; ;STORE RMDS AT $BDDAT 
2069 024176 042737 175777 001142 BIC #°CLBT , SBDDA 
024204 001005 BNE 0 ;BRANCH IF LBT IS SET 
1 024 012737 002000 001140 MOV WLBT, SGDDAT 
2072 024214 104142 EMT 142 
73 026216 000413 BR 40$ 
74 024220 30S: 
75 024220 032737 010000 001440 BIT WEMT16,RMOFO DONE 16 BIT FORMAT ? 
2076 024226 001007 BNE 40$ : YES 
2077 024230 012737 010000 001440 MOV #FMT16,RMOFO 3SET ié BIT MODE AND 
2078 024236 112737 000037 001414 MOVB  #31.,RMDAO ZLAST SECTOR 
2079 024244 000677 BR 10$ = TEST AGAIN 
2080 024246 40$: 
2 EAE RERREEEEREKEREREREREKRREKEREREEKEEREREREEEKERREKERERKKEKE 
Z*TEST 42 COMPOSITE ERROR TEST 
eet i ee ee 
024246 TST42: 
024246 000004 SCOPE zSCOPE CALL 
024250 000240 NOP 
024252 012706 001100 MOV ASTACK, SP ;LOAD THE STACK POINTER 
024256 013700 001276 MOV SBASE , RO [RO = UNIBUS ADDRESS 
024262 013701 001462 MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
nas 024266 012737 000042 001226 MOV #42,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
2084 024274 004737 055614 JSR PC,CNTCLR 3GO CLEAR CONTROLLER 
2085 024300 010037 001136 MOV ag ;SETUP REGISTER ADDRESS 
2086 024304 062737 000012 001136 ADD S,$BDADR 
2088 sUSING DIAGNOSTIC MODE, CLEAR ALL ERRORS AND VERIFY THAT COMPOSITE 
2089 sERROR IS RESET. 
2090 024312 012760 000001. 000024 MOV _#DMD,RMMR1(RO) ;LOAD RMMR1 
2091 024320 012760 000000 000014 MOV #0.RMER1(RO) § :LOAD RMER1 
2092 024326 012760 000000 000042 MOV #O.RMER2(RO) § :LOAD RMER2 
2093 024334 016037 000012 001142 MOV RMDS (RO) , SBDDAT * STORE RMDS AT SBDDAT 
209% 024342 042737 137777 001142 BIC #*CERR, SBDDAT 
2095 024350 001403 BEQ 10$ ;BRANCH IF ERR IS RESET 
20% 024352 005037 001140 CLR $GDDAT 
2097 024356 104143 EMT 143 
360 012737 040000 001140 10$: MOV #ERR,SGDDAT 
2100 2SET BOTH ERROR Rees STERs AND VERIFY THAT COMPOSITE ERROR IS SET 
2101 024 012760 177777 000014 MOV #-1,RMERT(RO) iL LOAD RMER1 
2102 024374 012760 177777 000042 MOV #~-1RMER2(RO) OAD RMER2 
2103 024402 016037 000012 001142 MOV RMDS (RO) , $BDDAT ‘STORE RMDS AT SBDDAT 
2104 024410 042737 137777 001142 BIC #*CERR, SBDDAT 
2105 024416 001001 BNE 20$ ;BRANCH IF ERR IS SET 
3106 024420 104144 EMT 144 
2108 ;VERIFY THAT COMPOSITE ERROR SETS FOR EACH BIT OF RMER1 
2109 024422 20$: 


“Am 


6 neh 4 earite DSKLS "3st 


2110 024422 
2111 

Siig 

21135 0244 
2114 024426 
2115 024432 
2116 024440 
2117 024446 
2118 024454 
2119 024460 
2120 024466 
2121 024474 
2122 024476 
2123 024502 
2124 024506 
2125 


2126 
2127 024510 
2128 024510 
2129 024512 
2130 
2131 
2132 024514 
2133 024514 
2134 024520 


2136 
2137 024526 


NRRL 


024650 





E ERROR T 


012702 


012702 
012737 


006302 
001327 


000001 


055614 
000001 


000001 
010000 


055614 
00000 
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001440 


MOV #1,R2 ZINITIALIZE TEST PATTERN 
guRITE THE TEST PATTERN AND VERIFY THAT ERR IS SET 
i PC,CNTCLR 760 CLEAR CONTROLLER 
MOV -RMMR1(RO) LOAD RMMRI 
MOV #0.RMERI1(RO)  :LOAD RMERT 
MOV \’RMER2(RO) LOAD RMER2 
MOV R2.RMERT(RO) § :LOAD RMERT 
MOV RMDS(RO),SBDDAT :STORE RMDS AT S$BDDAT 
Ic #*CERR, SBDDAT 
BNE 40$ ;BRANCH IF COMPOSITE ERROR SET 
MOV R2,$TMPO SSAVE RMER1 TEST PATTERN 
CLR STMP1 TSAVE RMER2 TEST PATTERN 
EMT 145 
jADVANCE THE TEST PATTERN FOR RMER1 
ie R2 
BNE 30$ ZCONTINUE IF TEST NOT DONE 
VERIFY THAT COMPOSITE ERROR SETS FOR EACH BIT OF RMER2 
"MOV #1,R2 ZINITIALIZE TEST PATTERN 
MOV #FMT16,RMOFO = SET 16 BIT FORMAT 
iWRITE THE TEST PATTERN AND VERIFY THAT ERR IS SET 
ue ae PC, CNTCLR :GO CLEAR CONTROLLER 
MOV -RMMR1(RO) LOAD RMMRI 
MOV #0.RMER1(RO)  :LOAD RMERT 
MOV #0.RMER2(RO) § : LOAD RMER2 
MOV R2.RMER2(RO) RMER2 
MOV RMOFO,RMOF (RO) LOAD RMOF 
MOV RMDS(RO) ,SBDDAT :STORE RMDS AT SBDDAT 
BIC #°CERR, SBDDAT 
MOV #ERR, SGDDAT ;SETUP EXPECTED VALUE FOR COMP ERROR 
BIT AXNUER2 ,R 
BEQ ;BRANCH IF TEST BIT IS A USED BIT 
CLR $GDDAT :TEST BIT IS NOT USED - ERR SHOULD BE 0 
65$: CMP SGDDAT , SBDDAT 
BEQ 70$ ;BRANCH IF COMP ERROR IS OK 
CLR $TMPO [SAVE RMER1 TEST PATTERN 
MOV R2,$TMP1 [SAVE RMER2 TEST PATTERN 
EMT 145 
ADVANCE THE TEST PATTERN FOR RMER2 
"ioe R2 
‘a BNE 60$ : CONTINUE IF TEST NOT DONE 
2 RARER ARERR EAE REEREEAEEEREREREREEREKKEEEEE 
S*TEST 43 WRITE GO TEST 
SERRATE 
18143: 


SEQ 0132 


thd rie 3/ ve Peet 
143 TEST 


2163 
2164 024676 
2165 024702 
2166 


sir 73 024732 

21 fe 

2176 024740 
177 7 

2180 760 

2181 024766 

2182 


2184 024770 
2185 024776 
2186 025002 
2187 025004 
2188 


2189 
2190 025006 
2191 025006 
2192 025012 
2193 025016 
2194 
2195 025020 
2196 
2197 





062702 
022702 
103332 








SCOPE :SCOPE CALL 

MOV #STACK, SP ZLOAD THE STACK POINTER 

MOV $BASE , RO [RO = UNIBUS ADDRESS 

MOV TSTQUE,R1 :Ri = POINTER TO DEVICE 

MOV #43,$TESTN +;SET TEST NUMBER IN APT MAIL BOX 
MOV RO, $BDADR ;COPY RMCS1 ADDRESS 

CLR R2 S INITIALIZE FUNCTION CODE 


a THE MASSBUS, SET DIAGNOSTIC “ODE AND ENABLE DEBUG CLOCK 
JSR PC,CNTCLR ;GO CLEAR CONTROLLER 
#DMD 1(R 
MOV #DMD ! DBEN!MUR,RMMR1(RO) ;LOAD RMMR1 
MOV #0 ,RMER1 (RO) ;LOAD RMER1 
MOV #0 ,RMER2 (RO) zLOAD RMER2 


; TRANSFER THE FUNCTION CODE AND GO BIT TO RMCS1, VERIFY GO IS SET 
MOV R2,R3 ;SETUP FUNCTION CODE 


#G0,R3 
MOV R3,RMCS1 (RO) LOAD RMCS1 
MOV RMCS1(RO), ga STORE RMCS1 AT $BDDAT 


BIT #GO,$BDDAT 
BNE 20$ BRANCH IF GO IS SET 


;REPORT THE ERROR-CANT SET GO _ THIS FUNCTION CODE 
BIC #“CFNCMSK , SBDDAT 


MOV RS. $GDDAT :SAVE FUNCTION CODE 
EMT 146 
BR 30$ 
SADVANCE R2 TO THE NEXT FUNCTION CODE 
"ADD #2,R2 
CMP WILF76,R2 
BHIS  10$ 
30$: « sEND OF TEST 
FF EAA EEEEREEEREEEEEERKEEEEEEREREEEEREREERKEKKEEE 
T*TEST 44 BRANCH MULTIPLEXOR TEST 
FF RARER AERA EEEEEEREREAERERAEREEEREREREREEREEEEREEREKERE 
TST44: 
SCOPE ZSCOPE CALL 
MOV WSTACK, SP ;LOAD THE STACK POINTER 
MOV $BASE ,RO RO = UNIBUS ADDRESS 
MOV TSTQUE, ‘R1 = POINTER TO DEVICE 
MOV #44, $TESIN *;SET TEST NUMBER IN APT MAIL BOX 


COPY REGISTER ADDRESS 
MOV #100$,R2 INITIALIZE TABLE POINTER 
CLEAR THE MASSBUS AND SET DEBUG CLOCK ENABLE 


1Lnmnas 
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MULTIPLEXOR TEST 

2204 025064 10S: 
2205 025064 737 055614 JSR PC, CNTCLR GO CLEAR CONTROLLER 
2206 025070 012760 000001 000024 MOV »RMMR1(RO) LOAD 
2207 025076 012760 041001 000024 MOV #DMD'DBEN'MUR,RMMR1(RO) ;LOAD RMMR1 
2208 025104 012760 000000 000914 MOV #O,RMER1(RO) :LOAD RMERT 
2209 025112 012760 000000 000042 MOV #0,RMER2(RO) LOAD RMER2 
2211 ;THE TEST BIT SHOULD BE ONE BECAUSE THE ADDRESS IS ALL ONES WHEN 
2212 [THE COMMAND SEQUENCER IS INITIALIZED. 
2213 025120 016037 000040 001142 MOV RMMR2 (RO) , SBDDAT :STORE RMMR2 AT S$BDDAT 
2214 025126 032737 010000 001142 BIT #TST, SBDDAT 
2215 025134 001010 BNE 15$ ;BRANCH IF TEST he IS ON 
2216 025136 042737 167777 001142 BIC #*CTST,SBDDAT :SETUP FOR ERROR TYPE 
2217 025144 012737 010000 001140 MOV #TST,SGDDAT 
2218 025152 104147 EMT 147 
2219 025154 000452 BR 40$ ;SKIP REST OF TEST 
2221 ;GET THE FUNCTION CODE FROM THE TABLE AND TRANSFER IT TO THE DEVICE, 
2222 ;THEN STEP THE COMMAND SEQUENCER ACCORDING TO THE TABLE. 
2223 025156 15$: 
2224 025156 111203 MOVB = (R2) ,R3 
2225 025160 052703 000001 BIS #G60,R3 
2226 025164 042703 177700 BIC #*CENCMSK R3 ;R3=FUNCTION CODE, GO BIT 
2227 025170 010360 000000 MOV R3,RMCS1 (RO) [LOAD RMCS 
2228 025174 010337 001174 MOV R3.$TMPO ;SAVE R3 FOR ERROR MSG 

025200 116203 000001 MOVB = 1(R2),R3 3GET CLOCK COUNT IN R3 
2231 025204 042703 177400 BIC #*(377,R3 
2232 025210 20S: 
2233 025210 012760 141001 000024 MOV #DMD 'DBEN! MUR ! DBCK,RMMR1 (RO) ;LOAD RMMR1 
2234 025216 012760 041001 000024 MOV ADMD! DBEN'MUR.RMMR1(RO) :LOAD RMMRI 
2235 025224 005303 DEC R3 ;DECREMENT CLOCK COUNT 
2236 025226 001370 BNE 20$ sISSUE CLOCKS TILL ZERO 

;GET THE TEST BIT AND COMPARE IT WITH THE TABLE ENTRY 

2239 025230 016037 000040 001142 MOV RMMR2 (RO) , SBDDAT ;STORE RMMR2 AT $BDDAT 
2240 025236 042737 167777 001142 BIC #*CTST, SBDDAT 
2241 025244 016237 000002 001140 MOV 2(R2) ,$GDDAT 
2242 025252 023737 001140 001142 CMP $GDDAT, S$BDDAT 


2243 025260 001402 BEQ 30$ ;BRANCH IF TEST BIT OK 
2244 025262 104150 EMT 150 
2045 025264 000406 BR 40$ zSKIP REST OF TEST 
2247 ;MOVE THE TABLE POINTER AND CONTINUE IF NEXT ENTRY POSITIVE 
2248 025266 30$: 
2249 025266 062702 000004 ADD #4 ,R2 
2250 025272 105762 000001 TSTB ~—s-_: 1(R2) 
2251 025276 100401 BMI 40$ :BRANCH IF DONE TEST 
2252 025300 000671 BR 10$ ‘REPEAT TEST 
2053 025302 000436 40$: BR 200$ : JUMP OVER TABLE 

; TABLE OF FUNCTION CODES, CLOCK COUNTS, AND TEST BITS 
2256 025304 100$: 
2257 025304 000 -BYTE NOP zMUX ADDRESS=DATA COMMAND 
2258 025305 001 -BYTE 1 


2259 025306 000000 -WORD OQ :TEST BIT=0 
2260 





SEQ 0134 


mms 
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BRANCH MULTIPLEXOR TEST 





SEQ 0135 fi 

2261 025310 000 .BYTE NOP MUX ADDRESS=UNIT READY 
5562 025311 «002 "BYTE 2 
5568 095312 “WORD OO TEST BIT=0 
5565 025314 «010 .BYTE DRVCLR :MUX ADDRESS=F4 

025315 001 "BYTE 1 
2267 025316 010000 “WORD ‘TST TEST BIT=1 
5569 025320 050 ‘BYTE WCD :MUX ADDRESS=F 4 
5570 025321 «001 "BYTE 1 
221 025322 “WORD TEST BIT=0 
5573 025324 012 .BYTE _ RLEASE :MUX ADDRESS=F 4 
5574 025325 —001 "BYTE 1 
2275 025326 010000 “WORD ‘TST :TEST BIT=1 
5577 025330 —052 BYTE WCH :MUX ADDRESS=F4 
5578 025331 ~—=s«001 "BYTE 1 
2279 025332 "WORD 0 TEST BIT=0 
5581 025334 020 ‘BYTE RIP :MUX ADDRESS=F4 
5582 025335 001 "BYTE 1 
2283 025336 010000 “WORD ‘TST TEST BIT=1 
5585 025340 060 ‘BYTE WD :MUX ADDRESS=F4 
5586 025341 007 "BYTE 1 
2287 025342 “WORD TEST BIT=0 
5589 025344 022 \BYTE  PAKACK :MUX ADDRESS=F4 
5590 025345 «001 "BYTE 1 
2291 025346 010000 “WORD ‘TST TEST BIT=1 
5593 025350 062 ‘BYTE WH :MUX ADDRESS=F4 
5594 025351 «001 "BYTE 1 
2295 025352 “WORD 0 TEST BIT=0 
5597 025354 030 .BYTE SEARCH :MUX ADDRESS=F 4 
5598 025355 . 001 "BYTE 1 
2299 025356 010000 "WORD ‘TST :TEST BIT=1 
5301 025 070 ‘BYTE RD :MUX ADDRESS=F 4 
5302 025361 —«001 "BYTE 1 
2303 025 "WORD 0 :TEST BIT=0 
5305 025364 032 BYTE ILF32 MUX ADDRESS=F4 
5306 025365 «001 "RYTE 
2307 025366 010000 “WORD ‘TST :TEST BIT=1 
5309 025370 072 BYTE RH :MUX ADDRESS=F4 
5310 025371 ~—«001 "BYTE 1 
2311 025372 “WORD 0 TEST BIT=0 
5313 025374 000 BYTE SEND OF TABLE 
5314 025375 —s-377 "BYTE = 
5315 025376 000000 “WORD 


2316 025400 
2317 





END OF TEST 
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2318 


025400 
025400 
025402 000240 
53404 012706 0011 
025410 001276 


2319 025420 012737 

2320 025426 012702 026042 
2321 

2322 

2323 

2324 025432 

2325 025432 004737 05561 

2326 025436 

2327 025444 012760 04100 


2328 025452 012760 
4 025460 012760 


2331 

2332 025466 111203 
2333 025470 042703 
2334 025474 052703 
2335 025500 010360 
2336 025504 016037 
2337 025512 032737 
2338 025520 001011 
2339 025522 042737 
2340 025530 

2341 025534 010037 0011 


2342 025540 104151 
Sez 025542 000536 


2346 025544 
2347 025544 005037 001140 
2348 025550 032737 000001 
2349 025556 001003 
2350 025560 012737 000200 
2351 025566 

566 000012 
2352 025574 042737 177577 
2353 025602 40 


2357 025624 104152 


000001 
2362 025632 042704 177400 
2363 025636 
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FERRARA EEERERREEEEEKEEREREREREERAERERERREREREREREKEE 


TRTEST 45 SET/RESET GO TEST 
fA RRA RRAERRERERERERE EERE 
TST45: 
oS SCOPE CALL 
MOV ASTACK, SP LOAD THE STACK POINTER 
MOV SBASE ,RO ;RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :R1_= POINTER TO DEVICE 
001226 MOV #45, ,STESTN 7;SET TEST NUMBER IN APT MAIL BOX 
MOV #200$ ,R2 : INITIALIZE FUNCTION CODE POINTER 


: CLEAR, THEN SET DIAGNOSTIC MODE, CLEAR COMPOSITE ERROR, SET MEDIUM 
50N LINE AND ENABLE DEBUG CLOCK 


JSR PC,CNTCLR :GO CLEAR CONTROLLER 
#DMD ,RMMR1 (R OAD RMMR1 


( sl 
000024 MOV #DMD MUR! DBEN,RMMR1(RO) ;LOAD RMMR1 
000014 MOV #0 ,RMER1 (RO) sLOAD RMER1 
000042 MOV #0 ,RMER2 (RO) zLOAD RMER2 


; TRANSFER THE FUNCTION CODE AND GO BIT TO RMCS1 AND VERIFY GO IS SET 
MOVB ° GET FUNCTION CODE 

BIC #*CILF76,R3 CLEAR UNUSED BITS 
‘4 SET GO 


MOV R3,RMCS1(RO) LOAD RMCS1 
001142, MOV pe gp Nae a STORE RMCS1 AT S$B8DDAT 
001142 BIT #GO,$BDDAT 

BNE 20$ BRANCH IF GO IS SET 
001142 BIC oe nesent’ SBDDAT 

MOV R3,$ sSAVE EXPECTED RESULT 

MOV RO, SEDADR :COPY REGISTER ADDRESS 

EMT 151 

BR 100$ 

gon! READY STATUS AND VERIFY THAT IT IS THE COMPLEMENT OF GO 

CLR SGDDAT EXPECT re ze BE OFF 
001142 BIT #GO0,$BDDAT WAS GO SET? 

BNE 30$ YES! 
001140 30s MOV #DRY , SGDDAT 3GO WAS NOT SET, DRY SHOULD BE 
001142 MOV RMDS(RO) ,SB8DDAT ;STORE RMDS AT $BDDAT 
001142 BIC #*CDRY , SBDDAT 
001142 CMP S$GDDAT , $8DDAT 

BEQ - 40$ BRANCH IF DRY IS OK 

MOV RO, $BDADR :COPY REGISTER ADDRESS 
001136 ADD #RMDS , SBDADR 

EMT 152 

igre THE DEBUG CLOCK AND VERIFY THAT GO REMAINS SET 


MOVB  1(R2),R4 7GET NUMBER OF CLOCK CYCLES 
ares BIC #°(377,RG 


SEQ 0136 


C2 


2364 025636 
2365 025644 
2366 025652 
2367 025660 
2368 025666 
$3 025672 


237 
2372 025676 
23 5700 


2391 O38769 

762 
2392 025770 
2393 025776 
2394 02600 


2399 
2400 026022 
2401 026022 
2402 026026 
2403 026032 
2404 026034 
2405 026040 
2406 

2407 

2408 026042 
2409 026042 
2410 026043 
2611 

2412 026044 
2413 026045 
2614 

2415 026046 
3416 026047 


41 
2418 026050 
2419 026051 





CZRMPAO RMOS/3/2 DSKLS TST 
SET/RESET GO TES 


$1083 


005304 
001406 
032737 
001352 


104153 
000451 


032737 
001405 
042737 
104154 
000440 


012737 


014 
001 





1 


000001 


000002 
000001 


025432 
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000024 MOV #DMD ! MUR ! DBEN! DBCK RAR (RO) ;LOAD RMMR1 
000024 MOV #DMD ‘MUR! DBEN, RMMAT (RO) iL 
001142 MOV RMCS1 (RO) , SBDDAT CORE RMCS1 AT $BDDAT 
001142 BIC #°CFNCMSK.S$BDDAT ;CLEAR UNUSED BITS 
MOV RO, SBDADR SETUP REGISTER ADDRESS 
MOV R3.$GDDAT TSAVE EXPECTED RESULT 
:DECREMENT CLOCK, COUNT AND EXIT LOOP IF ZERO 
BEG 60$ 
001142 BIT #G0, $BDDAT zI1S GO STILL SET?? 
BNE 50$ tYES!! 
EMT 153 
BR 100$ OUT OF SYNC=SKIP TO NEXT 
60 SHOULD NOW BE RESET AND DRY SHOULD BE SET 
001142 ; BIT #60. SBDDAT 1S GO RESET?? 
001140 BIC #GO,$GDDAT ‘Setup EXPECTED RESULT 
EMT 154 
as BR 100$ 
001140 "MoV #DRY , SGDDAT ZEXPECT DRIVE READY TO BE SET 
001142 BIT #G0, $BDDAT :D1D GO RESET? 
BEQ YES!! 
aa CLR $GDDAT :G0 IS SET- 
001142 "MOV RMDS(RO) ,$BDDAT ;STORE RMDS AT S$8DDAT 
001142 BIC #*°CDRY, $BDDAT 
MOV RO, $BDADR :COPY REGISTER ADDRESS 
001136 ADD ARMDS , SBDADR 
001142 CMP SGDDAT,$BDDAT ;:IS DRIVE READY OK?? 
BEQ 90$ YES!! 
EMT 152 
gADVANCE TO THE NEXT FUNCTION CODE TO BE TESTED-EXIT IF DONE 
"ADD #2,R2 :MOVE TABLE POINTER 
TSTB. ~—- 1(R2) SEND OF TABLE?? 
BMI 100$ SYES!! 
JMP 10$ STEST THIS FUNCTION CODE 
100$: BR 300$ :GO TO NEXT TEST 
ZABLE OF FUNCTION CODES AND CLOCK COUNTS USED DURING TEST 
"BYTE —‘ILFO2 ZILLEGAL FUNCTION CODE #2 
"BYTE 1 
.BYTE SEEK :SEEK COMMAND 
"BYTE 1 
.BYTE RECAL ;RECALIBRATE COMMAND 
"BYTE 1 
.BYTE OFFSET ZOFFSET COMMAND 
“BYTE 1 


SEQ 0137 


“am 
Wim 
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“am 
.Ans 


T45 SET/RESET GO TEST SEQ 0138 

2420 
2421 026052 016 .BYTE RTC ;RETURN TO CENTER LINE COMMAND 
S056 026053 001 -BYTE 1 
2424 026054 024 -BYTE  ILF24 ; ILLEGAL FUNCTION CODE #24 
seSe 026055 001 «BYTE 1 
2427 026056 026 -BYTE  ILF26 ; ILLEGAL FUNCTION CODE #26 
2428 026057 001 -BYiE 1 
2430 026060 034 -BYTE ILF 34 ; ILLEGAL FUNCTION CODE 434 
sees 026061 001 -BYTE 1 
2433 026062 036 -BYTE ILF36 ; ILLEGAL FUNCTION CODE 436 
Sess 026063 001 -BYTE 1 
2436 026064 042 | «BYTE ILF42 7 ILLEGAL FUNCTION CODE 442 
seat 026065 001 -BYTE 1 
2439 026066 044 -BYTE ILF44 ; ILLEGAL FUNCTION CODE 444 
Stay 026067 001 «BYTE 1 
2442 026070 046 -BYTE ILF46 ; ILLEGAL FUNCTION CODE 446 
ters 026071 001 -BYTE 1 
2445 026072 054 -BYTE ILF54 ; ILLEGAL FUNCTION CODE #54 
are 3 026073 001 -BYTE 1 
2448 026074 056 -BYTE ILF56 ; ILLEGAL FUNCTION CODE 456 
sien 026075 001 -BYTE 1 
2451 026076 064 -BYTE ILF 64 7 ILLEGAL FUNCTION CODE 464 
2452 026077 001 -BYTE 1 
2454 026100 066 -BYTE ILF66 : ILLEGAL FUNCTION CODE #66 
Sez 026101 001 -BYTE 1 
2457 026102 074 -BYTE ILF74 : ILLEGAL FUNCTION CODE #474 
ats 4 026103 001 -BYTE 1 
2460 026104 076 -BYTE ILF76 ; ILLEGAL FUNCTION CODE #76 
see) 026105 001 -BYTE 1 
2463 026106 000 -BYTE sEND OF TABLE 

7 377 -BYTE -1 


2464 02610 
2465 

2466 026110 300$: END OF TEST 
2467 


SL RARER 


S*TEST 46 END 1 RESET GO TEST 


SLA AREER EERE AREA REEEEEREREEEEEEERKEKEEEEEE 


026110 TST46: 

026110 SCOPE SCOPE CALL 

026112 240 NOP 

026114 012706 001100 MOV STACK, SP LOAD THE STACK POINTER 
026120 013700 001276 MOV $BASE ,RO :RO = UNIBUS ADDRESS 





CZRMPAQ RMOS/3/2 DSKLS 
T46 END 1 RESET GO 


026124 
026130 


2469 
2470 026136 
2471 026142 
2472 


2473 
2474 026146 


2478 026166 
2479 026174 
2480 


2482 026202 
2483 026204 
2484 026210 
2485 026214 
2486 0 
2487 026224 
2488 026232 
2489 026240 
90 026242 


24 

2491 026250 
2492 026252 
2493 


249% 
2495 026254 
2496 026254 
2497 026260 
2498 


2499 

2500 026264 
2501 026264 
2502 026272 
2503 026300 
2504 026306 
2505 026314 
2506 026316 
2507 026320 
2508 026326 
2509 026330 
2510 026332 
2511 


2512 
2513 026334 


51 
2518 026354 
2519 
2520 
2521 026356 


2522 026356 
2523 026362 


013701 
012737 


012702 
010037 


062702 
105762 


TST 1 
TEST 


001462 
000046 
026374 
001136 
055614 
000001 
041001 
000000 
000000 
177701 
000001 
001140 
000000 
000000 
000001 
177700 


000001 
177400 


141001 
041001 


000000 
177700 


000001 


000001 
000001 


000002 
000001 
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001226 


001142 
001142 


001142 


001142 
001140 


MOV 
MOV 


MOV 
MOV 


CLEAR MASSBUS, 


10$: 


TSTQUE ,R1 :R1_= POINTER TO DEVICE 
#46, $TESIN :7SET TEST NUMBER IN APT MAIL BOX 
#100$ ,R2 INITIALIZE TABLE POINTER 


RO, $8DADR COPY RMCS1 ADDRESS 
THEN SET MEDIUM ON LINE AND ENABLE DEBUG CLOCK 


PC,CNTCLR :GO CLEAR CONTROLLER 
#DMD .RMMR1(RO) —L 
#DMD'MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
#0,,RMER1 (RO) ;LOAD RMER1 

#0 ,,RMER2 (RO) LOAD RMER2 


aaa Oy we ree CODE AND GO BIT TO RMCS1, bet a GO IS SET 


;GET THE NUMBER 
20$: 
MOVB 
BIC 
;STEP THE DEBUG 


50s 


;VERIFY THAT GO 
40S: 


oR :GET ay ty CODE FR 
wrciirrs, oR3 ; TABLE AND SET 
R3, SDDAT zSAVE FUNCTION CODE FOR MSG 


R3,RMCS1(RO) LOAD 


C 
AMCS1 CRO) em STORE RMCS1 AT $B8DDAT 
#GO,$BDDA 


20$ BRANCH IF GO IS SET 
Rete ,SBDDAT 


60$ OUT OF SYNC-SKIP 
OF CLOCK CYCLES FROM THE TABLE, SAVE EXPECTED STATUS 


1(R2) RG 7R4=CLOCK COUNT 
#*(377,R4 


CLOCK AND VERIFY GO STATUS ON UNTIL CLOCK COUNT EXPIRES. 
ADMD ! MUR ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 


#DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
T :STORE RMCS1 AT $BDDAT 
#*CENCMSK, - SBDDAT 


4 
0$ ;BRANCH IF GO SHOULD BE OFF 
#G0, $BDDAT 

308 sCONTINUE IF GO IS ON 

60$ zOUT OF SYNC-SKIP 

RESET AT END1 

#G0,$BDDAT :D1D GO RESET?? 

#GO,$GDDAT re 

154 

60$ 


ggeT THE NEXT FUNCTION CODE FROM THE TABLE 


ADD 
TSTB 


#2,R2 
1(R2) 





SEQ 0139 
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END 1 RESET GO TEST SEQ 0140 
2524 026366 100401 BMI 60$ ;BRANCH IF END OF TABLE 
2525 026370 000666 BR 10$ ; TEST THIS FUNCTION CODE 
2306 026372 000404 60$: BR 200$ : JUMP OVER TABLE 
> TABLE OF FUNCTION CODES AND CLOCK COUNTS USED DURING TEST 
2529 026374 1008: 
2530 026374 012 -BYTE RLEASE ;RELEASE COMMAND 
3931 026375 002 .BYTE 2 
2533 026376 030 -BYTE SEARCH ; SEARCH COMMAND 
3934 026377 002 “BYTE 2 
2536 026400 032 -BYTE  ILF32 ZILLEGAL FUNCTON #32 
3937 026401 002 -BYTE 2 
2539 026402 000 BYTE :END OF TABLE 
2540 026403 377 “BYTE =1 
341 026404 2008: ZEND OF TEST 
2543 LARK REE REE REE ERE REE EEEREEEREEEE EE 
<STEST 47 SET PULSE TEST 
FURR EEK 
026404 TST47: 
026404 000004 SCOPE sSCOPE CALL 
026406 000240 NOP 
026410 012706 001100 MOV ASTACK, SP ;LOAD THE STACK POINTER 
026414 013700 001276 MOV $BASE ,RO [RO = UNIBUS ADDRESS 
026420 013701 001462 MOV TSTQUE ,R1 ;R1 = POINTER TO DEVICE 
=e 026424 012737 000047 001226 MOV #47, $TESIN +;SET TEST NUMBER IN APT MAIL BOX 
2545 026432 010037 001136 MOV RO, $8DADR ;COPY REG ADDRESS FOR MSG 
2546 026436 062737 000024 001136 ADD #RIMR1 , SBDADR 
2547 026444 012702 026702 MOV #1C0$,R2 :INITIALIZE TABLE POINTER 
;CLEAR THE MASS BUS, ENABLE DEBUG CLOCK, AND RESET ERROR REGISTERS 
2550 026450 10$: 
2551 026450 004737 055614 JSR PC,CNTCLR 3GO CLEAR CONTROLLER 
2552 026454 012760 000001 000024 MOV ADMD , RMR (RO) :LOAD 
2553 026462 012760 041001 000024 MOV #DMD ' DBEN'MUR,RMMR1(RO) :LOAD RMMR1 
2554 026470 012760 000000 000014 MOV #O.RMER1(RO)  ;LOAD RMER1 
3999 026476 012760 000000 000042 MOV #O.RMER2(RO)  :LOAD RMER2 
;VERIFY THAT CONTINUE, ‘‘CONT’’ i RESET AFTER CLEAR 
2558 026504 016037 000024 001142 MOV RMMR1 (RO) SBDDAT 7STORE RMMR1 AT SBDDAT 
2559 026512 042737 177677 001142 BIC #*CCONT, $BDDA 
2560 026520 001404 BEQ 20$ ;BRANCH IF CONT WAS CLEARED 
3961 026322 005037 001140 CLR SGDDAT ‘FOR ERROR MSG 


104155 EMT 155 
$207 026530 000463 BR 70$ 
;GET THE FUNCTION CODE FROM THE TABLE AND TRANSFER IT TO RMCS1 


2566 026532 20$ 

2567 026532 111203 MOVB  (R2),R3 

2568 026534 052703 000001 BIS #G0, 

2569 026540 042703 177700 BIC #*CFNCMSK,R3—«; R3=FUNCTION CODE AND GO 
2570 026544 010360 000000 MOV R3,RMCS1(RO) LOAD RMCS1 








L 11 
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147 SET PULSE TEST SEQ 0141 
2571 026550 010337 001174 MOV R3,$TMPO ySAVE FUNCTION CODE FOR MSG 
2573 :GET THE CLOCK COUNT FROM THE TABLE 
2574 026554 116203 000001 MOVB R2) RS. 
2575 026560 042703 177400 BIC #°C377,R 


2577 GET THE BIT STREAM FOR CONTINUE FROM THE TABLE 
sore 026564 016204 000002 MOV 2(R2) ,R4 


$3a0 . 026570 4pacr THE COMMAND SEQUENCER AND VERIFY CONTINUE STATUS 
2582 026570 012760 141001 000024 MOV ADMD ' DBEN! MUR! DBCK,RMMR1 ~ ;LOAD RMMR1 | 
2583 026576 012760 041001 000024 MOV ADMD 'DBEN'MUR.RMMRI(RO) :LOAD RMMR1 
2584 026604 016037 000024 001142 MOV RMMR’1 (RO) . SBDDAT < SPORE RMMR1 AT SBDDAT 
2585 026612 042737 177677 001142 BIC #*CCONT, $BDDAT 
2586 026620 005037 001140 CLR SGDDAT ;GENERATE EXPECTED CONTINUE 
2587 026624 032704 000001 BIT #BITO,R4 
2588 026630 001403 BEQ 
2589 026632 012737 000100 001140 MOV #CONT , SGDDAT 
2590 026640 023737 001140 001142 40$: CMP SGDDAT , $BDDAT 
2591 026646 001402. BEQ 50$ ;BRANCH IF CONTINUE IS OK 
2592 026650 104156 EMT 156 
2095 026652 000412 BR 70$ :SKIP 
2595 :DECREMENT CLOCK COUNT AND SHIFT BIT STREAM 
2596 026654 50$: 
2597 026654 005303 DEC R3 
2598 026656 001402 BEQ 60$ ;BRANCH IF CLOCK COUNT EXPIRED 
2599 026660 006204 ASR R4 :SHIFT TO NEXT CONTINUE BIT 
3600 026662 000742 BR 30$ :TEST NEXT CLOCK CYCLE 
2602 ;ADVANCE TABLE POINTER-EXIT IF DONE 
2603 026664 60$: 
026664 062702 000004 . ADD #4,R2 
2605 026670 105762 000001 TSTB ~—- 1(R2) 
0 1 BMI 70$ zEXIT IF CLOCK COUNT NEGATIVE 
2607 026676 BR 10$ S CONTINUE TEST 
2608 026700 000442 70$: BR 200$ : JUMP OVER TABLE | 
2610 ; TABLE OF FUNCTION CODES, CLOCK COUNTS AND CONTINUE BITS FOR TEST | 
2611 026702 100$: 
2612 026702 000 .BYTE NOP ZNOP COMMAND | 
2613 026703 004 “BYTE 4 74 CLOCKS | 
2614 026 000000 “WORD  *B0000 + CONT INUE=0000 
2616 026706 002 .BYTE  ILFO2 ZILLEGAL FUNCTION 2 
2617 026707 002 “BYTE 
2618 026710 “WORD “B00 
026 004 .BYTE SEEK :SEEK COMMAND 
2621 026713 002 ‘BYTE 2 
026 000000 -WORD  *B00 
2624 026 006 -BYTE RECAL ;RECALIBRATE COMMAND 
2625 026717 002 “BYTE 2 
026 “WORD “B00 





CZRMPAO wT ha be ome TST 1 
7 SET PULSE TEST 


2628 026722 
2629 026725 
2630 026724 
2631 

2632 026726 
2633 026727 
2634 0267350 
2635 

2636 026732 
2637 026733 
2638 026734 
2640 026736 
2641 026737 
2642 026740 


2648 026746 
2649 026747 
2650 026750 
2651 

2652 026752 


2664 026766 
2665 026767 
2666 026770 


2667 
2668 026772 
2669 026773 
2670 026774 
2671 
2672 026776 
2673 026777 
2674 027000 
2675 
2676 027002 
2677 027003 
2678 027004 
2680 027006 
2681 
2682 





-BYTE 
-BYTE 
«WORD . 


-BYTE 
-BYTE 
- WORD 


-BYTE 
-BYTE 


WORD 


-BYTE 
«BYTE 
- WORD 
- WORD 
-BYTE 
-BYTE 
- WORD 
-BYTE 
-BYTE 
- WORD 
-BYTE 
-BYTE 
- WORD 
«BYTE 
-BYTE 
- WORD 
-BYTE 
-BYTE 
- WORD 
-BYTE 
-BYTE 
- WORD 
-BYTE 
- WORD 


-BYTE 


WORD 





DRVCLR 
“B01 
RLEASE 
+8000 
OFF SET 
“B00 
RTC 
“B00 
RIP 
“81110 
PAKACK 
“81110 
ILF 24 
“B00 
ILF 26 
“B00 
SEARCH 
“B000 
ILF32 
“B000 
ILF34 
“B00 
ILF 36 
S800 


-1 
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SEQ 0142 


DRIVE CLEAR COMMAND 
RELEASE COMMAND 
sOFFSET COMMAND 
RETURN TO CENTER COMMAND 
READ IN PRESET COMMAND 
PACK ACKNOWLEDGE 
ILLEGAL FUNCTION 24 
ILLEGAL FUNCTION 26 
SEARCH COMMAND 
ILLEGAL FUNCTION 32 
ILLEGAL FUNCTION 34 
ILLEGAL FUNCTION 36 
END OF TABLE 


END OF TEST 


FLARE ARREREK EE RE EEE E EEK EEEEEEEKEREREREEEEREEEEEKREEREEKEKE 


i*TEST 50 


SET/RESET IVC TEST 





CZRMPAOQ RMOS/3/2 DSKLS TST 1 
T50 SET/RESET IVC TEST 


2700 027130 
2701 
2702 
2703 
2704 132 
2705 027132 
2706 34 
2707 027140 
2708 4G 


2716 20 

2717 027224 

2718 

2719 

2720 027226 
36 

2724 027240 

2726 027242 

2727 

2728 


, 


000240 
012706 
013700 
013701 
012737 


052703 
010360 


055614 
000001 
041001 
000000 


000042 
167777 
001140 


000001 
000000 
141001 
041001 
000042 
167777 
062752 
167777 
001140 


001174 


000002 
000076 
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SEQ 0143 
ff AERA AREER AEE ERE ERE EEE 
T8150: 
SCOPE :SCOPE CALL 
MOV #STACK, SP ;LOAD THE STACK pPOINTER 
MOV $BASE ,RO “RO = UNIBUS ADDRESS 
MOV TSTQUE,R1 :R1 = POINTER “0 DEVICE 
001226 MOV #50,$TESTN :;SET TEST NUMBER IN APT MAIL BOX 
MOV RO, $BDADR :SETUP REG ADDRESS . 
001136 ADD ARMER2, SBDADR ‘ 
CLR R2 ;R2=FUNCTION CODE 
{INITIALIZE AND VERIFY THAT IVC STATUS IS ZERO. 
" «JSR PC,CNTCLR :G0 CLEAR CONTROLLER 
000024 MOV #DMD ,RMMR1 (RO) 1 
000024 MOV #DMD'MUR'DBEN RMR (RO) =LOAD RMMRI 
000014 MOV #0,RMER1(RO) © ;LOAD RMER1 
2 MOV é (RO) _:LOAD RMER2 
001142 MOV RMER2 (RO) , SBD. ;STORE RMER2 AT $BDDAT 
001142 BIC #°CIVC, $BDDAT 
BEG 20$ ;BRANCH IF IVC IS ZERO 
CLR S$GDDAT 
EMT 157 
BR 40$ :SKIP REST OF TEST 


LOAD THE FUNCTION CODE WITH GO BIT, STEP THE COMMAND SEQUENCER OFF 
ADDRESS 0 AND VERIFY IVC STATUS. 


20$: 
MOV R2,R3 :SETUP FUNCTION CODE 
BIS #60, 
MOV R3,RMCS1(RO) ; LOAD RMCS1 
000024 MOV ADMD !MUR'DBEN!DBCK,RMMR1(RO) LOAD RMMR1 
MOV MUR | DBEN,RMMR1(RO) :LOAD RMMR1 
001142 MOV RMER? (RO) . SBDDAT [STORE RMER2 AT $@DDAT 
001142 BIC #*CIVC,$BD :SET ACTUAL STATU 
001140 MOV FNCDTB(R2) , esepDAi :SETUP EXPECTED STATUS FROM 
001140 BIC W°CIVC,$GDDAT ;:FUNCTION CODE TABLE 
001142 CMP SGDDAT. $BDDAT 
BEQ 30$ :BRANCH IF IVC IS OK 
MOV R2,$TMPO [SAVE FUNCTION CODE FOR MSG 
EMT 160 
jAD\ ADVANCE FUNCTION CODE AND REPEAT TEST IF NOT DONE 
ADD #2,R2 
CMP MILF 76,R2 
BLO 40$ :BRANCH IF DONE TEST 
BR 10$ 
40$: ZEND OF TEST 
FEAR EKEEEEEREEEREEREEREREEAEEAEEREREEREREEEEEREEEKEEEEEE 
TSTEST 51 SET LSC TEST 


CL ARERR AREER EEA EERE 


C2 


CZRMPAO RMO5/3/2 DSKLS 
51 SET LSC TEST 


027242 
027242 


2729 
2730 027270 


3rce 027354 
743 027360 


2745 
2746 027362 
027362 
2747 027370 
027376 
2748 027402 
2749 027406 
2750 027410 
2751 
2752 
2753 027414 
54 
2756 36 
2757 027440 
2758 027446 
2760 027450 
2761 
2762 


027450 


2766 027502 


000240 
012706 
013700 
013061 
012737 
003037 


004737 


TST 1 


001100 
001276 
001462 
000051 
001136 
000042 
055614 
000001 
040001 
000000 


000042 
173777 
001140 


000001 


000001 
152130 
001530 


152120 


000001 
000042 
173777 
004000 


81 
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000000 
001530 


000024 
001142 
001142 


001140 


001226 


TST51: 
SCOPE SCOPE CALL 
NOP 


MOV STACK, SP sLOAD THE STACK POINTER 
MOV SBASE ,RO ADDRESS 


TSTQUE ,R1 
MOV #51,$TESTN 


MOV RO, $BDADR 
ADD #RMER2 , SBDADR 


; INITIALIZE AND VERIFY THAT LOSS OF SYSTEM CLOCK, as IS RESET 


:3SET TEST NUMBER IN APT MAIL BOX 


JSR PC,CNTCLR 7G0 CLEAR CONTROLL 

MOV #OMD, 1 : 1 

MOV 'DBEN,RMMR1 (RO) ;LOAD RMMR1 

MOV #0,RMER1 (RO) ;LOAD RMER1 

MOV -RMER2 (RO) ;LOAD RMER2 

MOV RMER2 (RO) , SBDDA ;STORE RMER2 AT S$BDDAT 
BIC #*CLSC,$B8DDAT 

BEQ 10$ ;BRANCH IF LSC IS ZERO 

CLR SGDDAT 

EMT 161 


+t DEBUG CLOCK ENABLED, SET GO AND WAIT FOR ONE SHOT TO SET 


MOV #GO.RMCS1(RO) LOAD RMCS1 
MOV #1,WATCH SSET WATCHDOG TIMER VALUE 
JSR PC. acLOCk [START THE CLOCK 
20$: TST WATCH 
BNE 20$ :WAIT FOR WATCH ZERO 
JSR PC, aSTOP ‘STOP THE CLOCK 
ZONE SHOT SHOULD BE BE SET-DISABLE DIAGNOSTIC CLOCK AND LSC SHOULD SET. 
MOV RMERS (ROD SBDDAT F ;STORE RMER2 AT $BDDAT 
BIC PersC. $BDDA 
BNE 30$ ;BRANCH IF LSC SET 
MOV #LSC,S$GDDAT 
EMT 162 
30S: zEND OF TEST 
FEAR REREREEEEEREKEEEEEKEREREREEEEEEEEREREREKERERKEE 
tSTEST 52 DECODE TEST 
as MAAR RAAS£2£AA¢£2 22S SESESESSLE SELES E SESS S ESSE SEES SESE ESSE ESSE LCL aS SY 
TST52: 
SCOPE :SCOPE CALL 
MOV ASTACK, SP ZLOAD THE STACK POINTER 
MOV S$BASE ,RO ‘RO = UNIBUS ADDRESS 
MOV TSTQUE,R1 'R1 = POINTER TO DEVICE 
MOV #52,$TESIN ::SET TEST NUMBER IN APT MAIL BOX 
‘- CLR RMER10 ZNO ERROR FIRST TEST 


JSR PC,100$ : INITIALIZE 


CZRMPAQ RMOS/3/2 DSKLS 
T52 DECODE TEST 


2767 
7 


2768 

2769 027506 
2770 027514 
2771 027522 
2772 027526 


2787 027614 
2788 


2790 027620 
2791 027626 
2792 027634 
2793 027640 


013760 
012760 
012703 





TST 1 


001422 
000023 
141001 
041001 
000012 
177677 
001422 


001140 
001136 
000012 


000012 
177677 
001422 
001140 
001136 
000012 
030062 
001422 
000051 


141001 
041001 


000024 
077777 


001136 


001136 
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SEQ 0145 


sEXECUTE A PACK ACKNOWLEDGE AND CHECK VOLUME VALID 
MOV RMER10,RMER1 


(RO) LOAD RMFR1 


MOV WPACACK!GO,RMCS1(RO)  :LOAD RMCS1 
ao MOV #3,R3 
MOV ADMD ! MUR! DBEN! DBCK ,RMMR1 (RO) :LOAD RMMR1 
mov #DMD!MUR!DBEN.RMMRT (RO); ZLOAD RMARI 
BNE 10$ yISSUE NEXT CLOCK IF COUNT NOT 0 
MOV RMDS(RO), SBDDAT ZSTORE RMDS AT $BDDAT 
BIC #°CVV, $BDDA 
BEQ 20$ :BRANCH IF VV IS ZERO 
TST RMER10 
BEQ 70$ ;BRANCH IF VV SHOULD BE SET 
CLR SGDDAT :SETUP ERROR MESSAGE 
MOV RO, $BDADR 
ADD #RMDS , SBDADR 
EMT 3 
ae BR 80$ SKIP 
JSR PC,100$ ; INITIALIZE AND SET DIAGNOSTIC MODE 
sEXECUTE A READ IN PRESET AND CHECK VOLUME VALID 
MOV RMER10,RMER1 (RO) ZLOAD RMER1 
MOV #RIP'GO,RMCS1 (RO) [LOAD RMCS1 
iil MOV #3,R3 3R3=CLOCK COUNT 
MOV #DMD !MUR ! DBEN! DBCK,RMMR1 (RO) :LOAD RMMR1 
mov #DMD !MUR !DBEN, “RMMRI(RO) :LOAD RMMR1 
BNE 30$ yISSUE NEXT CLOCK IF {COUNT NOT ZERO 
MOV RMDS(RO), SBDDAT SSTORE RMDS AT $BDDA 
BIC #°CVV, $BDDA 
BEQ 40$ ;BRANCH IF VOLUME VALID NOT SET 
TST RMER10 
BEQ 70$ ;BRANCH IF VOLUME VALID SHOULD BE SET 
CLR $GDDAT :SETUP ERROR MESSAGE 
MOV RO, $BDADR 
ADD ARMDS , SBDADR 
EMT 3 
ee BR 80$ :SKIP 
JSR PC, 100$ ; INITIALIZE AND SET DIAGNOSTIC MODE 
sEXECUTE A WRITE CHECK DATA AND CHECK OCCUPIED 
MOV RMER10,RMER1 (RO) [LOAD RMER1 
MOV MCD !GO,RMCS1 (RO) [LOAD RMCS1 
eh MOV #2,R3 zR3=CLOCK COUNT 
MOV. = #DMD 'MUR 'DBEN! DBCK.RMMR1 (RO), ;LOAD RMMR1 
Mov #DMD !MUR !DBEN, /RMMRI(RO) :LOAD RMAR1 
BNE 50$ y ISSUE NEXT CLOCK IF COUNT NOT ZERO 
MOV RMMR1(RO),$BDDAT’ ;STORE RMMR1 AT SBDDAT 
BIC #*COCC, SBDDAT 
60$ ;BRANCH IF OCCUPIED IS RESET 











CZRMPAO wy iat gf B ae 
2 DECODE T 


2875 030230 


012737 
000611 


000510 





TST 1 


001422 


001140 
001136 
000024 


001422 


000012 
177677 


001136 


001422 


D1 
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TST RMER10 
BEQ 70$ ;BRANCH IF OCCUPIED SHOULD BE SET 
CLR SGDDAT SETUP ERROR MESSAGE 
MOV RO, $8D 
ADD #RMMR 1 , SBDADR 
EMT 164 
BR 80$ 
= VALID AND OCCUPIED DID NOT SET-SEE IF COMP ERROR WAS ACTIVE 
TST RMER10 
BNE 80$ :;BRANCH IF COMP ERROR WAS SET 


; COULD , Weer OCCUPIED-SUSPECT DECODE FLOP NOT SETTING 


ek an ig WITH COMPOSITE ERROR ACTIVE-VERIFY THAT DECODE FLOP 
:DOES NOT SET, AS INDICATED BY VOLUME VALID AND OCCUPIED. 


MOV #UNS ,RMER10 USE UNSAFE TO SET COMP ERROR 
BR 5$ 
80$: BR 200$ END OF TEST 


FF EERE EEEREREEEEEEEEREREREEEKEEEEEEKKREEEKKREREKKEKK 


; SUBROUTINE USED DURING TEST 


J TRAE EEKAEREREREREERREREREEREREEREEEREEKEKEEEREREEEEKEEEEKEEEE 


USING DIAGNOSTIC MODE, RESET VOLUME VALID AND COMPOSITE ERROR. 
‘veer THAT VV, ERR, AND OCC ARE ZERO. 


JSR PC,CNTCLR GO CLEAR CONTROLLER 


MOV #DMD.RMMR1(RO) :LOAD RMMR1 
MOV #DMD MUR! DBEN,RMMR1(RO) ;:LOAD RMMR1 
MOV #0 ,RMER1 (RO) ;LOAD RMERT 
MOV #0 ,RMER2 (RO) LOAD RMER2 
CLR SGDDAT SETUP FOR ERROR MSG 
MOV RO, $BDADR 
ADD ARMDS , SBDADR 
MOV RMDS(RO) ,S8DDAT ;STORE RMDS AT SBDDAT 
BIC #*CERR,SBDDAT 
BEQ 110$ BRANCH IF COMP ERROR ZERO 
EMT 143 
1108 BR 140$ SKIP TEST 
MOV RMDS (RO), ot mel STORE RMDS AT SBDDAT 
BIC #°CVV,$BDDA 
BEQ 120$ s;BRANCH IF VOLUME VALID ZERO 
EMT 135 
1208 140$ SKIP TEST 
MOV RMMR1 (RO) , SBDDAT STORE RMMR1 AT SBDDAT 
BIC #*COCC,$BDDAT 
BEQ 130$ BRANCH IF OCCUPIED ZERO 
MOV RO, $8DADR SETUP ERROR MESSAGE 


#RMMR1, SBDADR 
166 


SEQ 0146 


Té 


fan RMO5/3/2 DSKLS 


DE CODE 
2876 030232 
2877 
2878 


2879 
2880 030234 
2881 030234 
2882 030242 
2883 030250 
2884 030256 
2885 030260 
2886 030264 
2887 030272 
2888 030274 
2889 
2890 030300 
2891 
2892 0303502 
2893 
2894 





TEST 


000420 


gsgesees 
Yolecuine 
assis 


NM 
o 
N 


052703 
360 





TST 1 


000024 
000014 
177776 


001136 
000014 


030302 


055614 
000001 
041001 
000000 
000012 
177677 
001140 


177701 
000001 


000001 
177400 
141001 
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000024 


SEQ 0147 
BR 140$ SKIP TEST 


:TO VERIFY THAT THE DECODE FLOP IS RESET, LOAD AN ILLEGAL FUNCTION 
i IN,RMCSI AND VERIFY THAT ILF DOES NOT SET. 


V MILF 24,RMCS1(RO) LOAD RMCS1 
MOV RMER1 (RO) , SBDDAT “STORE RMER1 AT SBDDAT 
BIC #*CILF ,SBDDAT 
BEG 150$ ;BRANCH IF ILF IS ZERO 
MOV RO, SBDADR SSETUP ERROR MESSAGE 
ADD #RMERT , ,SBDADR 
140$: MOV #200$, (SP) :DONT GO BACK TO TEST 
150$: RTS PC ;RETURN TO TEST OR EXIT TEST 
200$: 
; FARRER EEEREEEEEREREEEAEREKEEEEREREEEEEEEEREEERERREE 
S*TEST 53 SET/RESET VOLUME VALID TEST 
FLARE EREEEEEEERERREREEREREEEEEEEEEEEEEEEEEREREREK 
T8153: 
SCOPE ZSCOPE CALL 
MOV ASTACK, SP ;LOAD THE STACK POINTER 
MOV S$BASE ,RO [RO = UNIBUS ADDRESS 
MOV TSTQUE,R1 =R1 = POINTER TO DEVICE 
MOV #53,$TESIN :;SET TEST NUMBER IN APT MAIL BOX 
MOV RO, $BDAD ;SETUP REGISTER ADDRESS 
ADD #RMDS, SBDADR 
MOV #100$.R2 ;R2=TABLE POINTER 
{INITIALIZE AND USE DIAGNOSTIC MODE TO RESET VOLUME VALID 
"JSR PC. CNTCLR :G0 CLEAR CONTROLLER 
MOV #DAD , 1(RO) LOAD 
MOV #DMD ‘MUR 'DBEN,RMMR1(RO) :LOAD RMMR1 
MOV #0.RMER1(RO) © ;LOAD RMER1 
MOV #O.RMER2(RO) — :LOAD RMER2 
MOV RMDS(RO) ,$BDDAT :STORE RMDS AT $BDDAT 
BIC #°CVV, SBDDAT 
BEG 20$ BRANCH IF VOLUME VALID ZERO 
CLR $GDDAT 
EMT 135 
sEXECUTE THE FUNCTION CODE IN THE TABLE 
“ — MOVB- =~ (R2),R3 :GET FUNCTION CODE 
BIC #°CILF76,R3 
BIS #GO,R 
MOV RS. RCS (RO) ;LOAD RMCS1 
MOVB R2) :GET CLOCK COUNT 
= BIC peaen Re 
"MOV #DMD!DBEN!MUR!DBCK,RMMR1(RO) — : LOAD RMMR1 


“am 
sie 


T53 
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SET/RESET VOLUME VALID TEST 


524 
2931 030526 
$5 3 
2934 030530 
2935 030530 
2936 030534 
2937 030540 
2938 030542 
2939 030544 
2940 


2941 

2942 030546 
2943 030546 
2944 030547 


2945 
2946 030550 
2947 030551 
2948 


2949 030552 
2950 030553 
2951 
2952 030554 
2953 
2954 





041001 
000012 
177677 


001174 
000100 


000002 
000001 


055370 


000002 


041001 
000001 
000000 


000024 


001226 


000024 


MOV * pphencmssoeacte talons (RO) ;LOAD RMMR1 


DEC 

BNE 30$ ISSUE COCKS TIL R4 es 
MOV RMDS (RO), — STORE RMDS AT $BDDA 

BIC #*CVV,$SBDDA 

BNE 40$ 3BRANCH IF VOLUME VALID SET 
MOV R3,$TMPO ;SAVE FUNCTION CODE FOR MSG 
MOV #VV ,SGDDAT 

EMT 170 

BR 50$ 


rae THE TABLE POINTER, EXIT IF DONE 


ADD #2,R2 
TSTB 1(R2) 
I 50 EXIT IF COUNT IS NEGATIVE 
BR 10$ 
50$: BR 2008 ; JUMP OVER TABLE 
‘toes OF FUNCTION CODES AND CLOCK COUNTS 
"BYTE = RIP READ IN PRESET COMMAND 
-BYTE 3 
-BYTE PAKACK PACK ACKNOWLEDGE COMMAND 
-BYTE 3 
-BYTE END OF TABLE 
-BYTE =1 
200$: END OF TEST 


CT EERE EKER EKER EERE 


S*TEST 54 ILLEGAL FUNCTION TEST 
DLA REEEEEREEEREREEE EERE 
TST54: 

SCOPE :SCOPE CALL 

MOV #STACK, SP :LOAD THE STACK POINTER 

MOV $BASE ,RO [RO = UNIBUS ADDRESS 

MOV TSTQUE,R1 [R1 = POINTER TO DEVICE 

MOV #54,$TESTN ‘;SET TEST NUMBER IN APT MAIL BOX 
oe CLR R2 Z INITIALIZE FUNCTION CODE VALUE 

"gm PC, SETVV 7GO SET VOLUME VALID 
BR 208 TBRANCH TO 20$ IF NO ERROR 
BR 50$ :SKIP TEST IF ERROR 


20$: MOV #2,R4 >R4=CLOCK COUNT 
EXECUTE THE TEST FUNCT ION CODE AND VERIFY ILF 
MOV #DMD ! MUR RO) ; 


!DBEN,RMMR1 ( LOAD RMMR1 
MOV R2,R3 ; SETUP FUNCTION CODE IN R3 
BIS #G0,R3 
MOV R3,RMCS1(RO) :LOAD RMCS1 


“om 
sie 


SEQ 0148 
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154 GAL FUNCTION TEST SEQ 0149 
2967 030642 30S: 
030642 012760 141001 000024 MOV #DMD 'MUR ! DBEN ! DBCK RAR CRO) :LOAD RMMR1 
030650 012760 041001 000024 MOV #DMD 'MUR'!DBEN.RMMRI(RO) ;LOAD RMMR1 
2969 030656 005304 DEC R4 
030660 001370 BNE 30$ 
2971 030662 016037 000014 001142 MOV RMER1 (RO) , SBDDAT ;STORE RMER1 AT $BDDAT 
2972 030670 042737 177776 001142 BIC A*CILF ,$BDDA T ;SETUP ACTUAL ILF STATUS 
2973 030676 016237 062752 001140 MOV FNCDTB(R2) ,$GDDAT ;GET EXPECTED ILF STATUS 
2974 030704 042737 177776 001140 BIC #°CILF ,SGDDAT 
2975 030712 023737 001140 001142 CMP SGDDAT. SBDDAT 
2976 030720 001410 BEQ 40$ ;BRANCH IF ILF IS OK 
2977 030722 010037 001136 MOV RO, SBDADR :SETUP FOR ERROR MSG 
2978 030726 062737 000014 001136 ADD #RMER1, SBDADR 
2979 030734 010237 001174 MOV R2,$TMPO 
2980 030740 104171 EMT 
;ADVANCE TO THE NEXT FUNCTION CODE AND REPEAT TEST 
2983 030742 408: 
2984 030742 062702 000002 ADD #2,R2 
2985 030746 022702 000076 CMP #ILF76,R2 
2986 030752 103401 BLO 50$ 
2987 030754 000713 BR 10$ 
2988 030756 50S: ZEND OF TEST 
FEAR AREER EERE EEEAEEREREERREREEREEEEEEEEEEEREEREERREEREE 
TATEST 55 OCCUPIED TEST 
FFARR AREER EAAEAEAEAEEEEREEEREEREEEEREEREERREEEEKEEEEEEEREEKEEE RE 
030756 TST55: 
030756 000004 SCOPE :SCOPE CALL 
030760 NOP 
030762 012706 001100 MOV ASTACK, SP LOAD THE STACK POINTER 
030766 00 001276 MOV S$BASE ,RO :RO = UNIBUS ADDRESS 
030772 013701 001462 MOV TSTQUE,R R1 *R1 = = POINTER TO DEVICE 
2991 030776 012737 000055 001226 MOV #55, $TESTN + 3SET TEST NUMBER IN APT MAIL BOX 
oe 031004 005002 CLR R2 INITIALIZE FUNCTION CODE 
;GET THE DEVICE READY 
2995 031006 10S: 
031 004737 055370 JSR PC, SETVV :GO SET VOLUME VALID 
031012 000402 BR 20$ ‘BRANCH TO 20$ IF NO ERROR 
031014 104000 EMT 
2997 031016 000464 BR 50$ 
seein ZENABLE DEBUG CLOCK AND LOAD THE FUNCTION CODE 
3001 031020 012760 041001 000024 MOV #DMD !MUR ! DBEN, RMMR1 (RO) RMMR 1 
3002 031026 010203 MOV R2,R3 ay: EMBLE FUNCTION CODE AND 
3003 031030 052703 000001 BIS #60,R3 IT IN R3 
031034 010360 000000 MOV R3.RMCS1(RO) = LOAD RMCSI 
3005 031040 012704 000002 MOV #2.R4 7R4=CLOCK COUNT 
3007 -STEP THE DEBUG CLOCK UNTIL SET PULSE IS ACTIVE 
3008 031044 50s: 
3009 031044 012760 141001 000024 MOV #DMD ! MUR ! DBEN! DBCK AMR (RO) :LOAD RMMR1 
3010 031052 012760 041001 000024 MOV #DMD ‘MUR! DBEN.RMMR1(RO) ;LOAD RMMR1 





CZRMPAO RMO5/3/2 DSKLS 
OCCUPIED TEST 


060 
062 
064 


eetetetetetetetere 
x 


3 


ab ab od ab ad ad oad od 
WOONAUSWNH— 
o jolololelelelo) 
WAWWAAAANW 
a ed aad a a aa a ct a ed ed ed 


3021 


ENSVEVRS 


3024 0 


ARS SV SS YS SG YS 


sees 
ONnNOU 
etete 
Vs 
mor 


30 
3036 031170 
3037 

031170 


204 
031210 
3039 


3040 

3041 031216 
3042 031222 
3043 031230 
3044 031236 
3045 031244 
3046 

3047 

3048 031252 
5049 031260 
3050 031266 
3051 

3052 

3053 031274 
3054 031302 
3055 031306 
3056 031306 
3057 031314 





TST 1 


000024 
077777 
001140 
001000 
100000 
001140 
001174 
001136 
000024 


000002 
000076 


055614 
000001 
041001 
000000 
000000 
177777 


177777 
177777 
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001142 
001142 


062752 


001140 
001142 


001136 


TATEST 56 


SEQ 0150 
DEC R4 
BNE 30$ ISSUE NEXT CLOCK TIL R4 ZERO 
OCCUPIED STATUS 
MOV RMMR1 (RO) , SBDDAT STORE RMMR1 AT $BDDAT 
BIC #*COCC, SBDDAT 
CLR SGDDAT- GENERATE OCC FROM AOE 
BIT #AOE , FNCDTB(R2) 
BEQ 35$ 


MOV #OCC,SGDDAT 
CMP S$GDDAT , SBDDAT 
BEQ 40$ BRANCH IF OCC IS OK 


MOV 2,$T TSAVE FUNCTION CODE 
MOV RO. SBDADR [SETUP REGISTER ADDRESS 
ADD 1,$BDADR 
EMT 173 
BR 50$ 
jADVANCE TO NEXT FUNCTIONCODE, EXIT IF DONE 
"ADD #2,R2 
CMP HILF76,R2 
BLO 50$ ZEXIT IF DONE 
BR 10$ 
ZEND OF TEST 
FEAR EKER 
READ IN PRESET TEST 
Re a ee ee 
SCOPE :SCOPE CALL 


NOP 

MOV MSTACK, SP = LOAD THE STACK POINTER 

MOV -RO RO = UNIBUS ADDRESS 

MOV TSTQUE ,R1 :R1_ = POINTER TO DEVICE 

MOV #56, $TESIN :;SET TEST NUMBER IN APT MAIL BOX 


: CLEAR or * ENABLE DEBUG  raaee - LEAVE VOLUME VALID RESET 


PC,CNTCLR :GO CLEAR CONTROLLER 
MoV RMARI(RO) 5b RMR 1 
MOV #DMD 'MUR! DBEN,RMMR1(RO) ;LOAD RMMR1 
MOV #0 ,RMER1 (RO) ;LOAD RMER1 
MOV #0 ,RMER2 (RO) LOAD RMER2 


;LOAD ma oes IN RMDA, RMDC AND RMOF 


#-1 ,RMDA(RO) LOAD RMDA 
MOV #~1 ,RMDC (RO) LOAD RMDC 
MOV #~1 ,RMOF (RO) LOAD RMOF 


; LOAD a * IN PRESET COMMAND AND STEP THE CLOCK TILL SET PULSE 
LOAD RMCS1 


#RIP!GO,RMCS1(RO) 
Mov #3,R2 TRO=CLOCK COUNT 


;LOAD RMMR1 
OAD RMMR1 


MOV #DMD !MUR ! DBEN! DBCK ,RMMR1 (RO) 
MOV #DMD'MUR'DBEN.RMMR1(RO) ; 


sins 
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— RMO5/3/2 DSKLS 
TS6 READ IN PRESET T 


READ IN PRESET 
EMT 


EXECUTE A READ 
MOV 


SEQ 0151 


Re 
10$ ; ISSUE 3 CLOCKS 


RMDC OR RMOF IS ZERO 
a STORE RMDA AT R2 


20$ BRANCH IF RMDA IS ZERO 
RMDC (RO) ,R2 STORE rMDC A 

AXNUDC ,R2 CLEAR UNUSED BITS 

20 “BRANCH IF RMDC I$ ZERO 
RMOF (RO) ,R2 ;STORE RMOF AT R2 

AXNUOF ,R2 :CLEAR UNUSED BITS 


ZBRANCH IF RMOF IS ZERO 
— DIDNT CLEAR ANY OF THE 3 REGISTERS 


sEND OF TEST 
Ete e Tirta teri i ttt ttt iti tt ttt iti ttt titi tit) 
RIP/RMOF TEST 
jRESSRRRRRRERERRERERREERERE ARRAN EER RERE ARERR ARERR REE E RENEE EERE 
SCOPE CALL 
ASTACK, SP ;LOAD THE STACK POINTER 
SBASE, :RO = UNIBUS ADDRESS 
TSTQUE ,R1 :R1_ = POINTER TO DEVICE 
#57, STESIN 7;SET TEST NUMBER IN APT MAIL BOX 
RO, $BDADR SETUP REGISTER ADDRESS AND 
F , SBDADR 
SGDDAT EXPECTED RMOF 


SET BITS IN RMOF 
PC,CNTCLR (RO) G0 CLEAR CONTROLLER 


LOAD 
#0.RMER2(RO) LOAD RMER2 
#~1 ,RMOF (RO) [LOAD RMOF 


IN PRESET IN + 5 aa MODE TILL SET PULSE 
#RIP!GO,RMCS1(RO) LOAD RMCS1 
#3,R2 ;R2=CLOCK COUNT 


#DMD IMUR!DBEN!DBCK-RMMRT(RO) LOAD RAMRT 
#OMD !MUR !DBEN. -RMMRI(RO) ;LOAD RMMR1 


10$ z ISSUE 3 CLOCKS 


THAT RMOF IS ZERO 
MOV RMOF (RO), sooeet STORE RMOF AT S8DDAT 
oneUOF , SBDDAT 


175 


BRANCH IF RMOF IS ZERO 





AO 
sie 


157 


RIP/RMOF 


3104 
3105 031544 
3106 
3107 


031544 


SSS Ss Ys ri SS 


031646 
031654 
031660 


at SS SS SS SS Ss ss ss SS 


W WWAANAAAWAAWNWWAN 


124 031666 
3125 031674 
3126 031676 
3127 


WWWNWWAAWNWAAA 


Ps Er >t WWW 
NOURGNRLESBYRUK 
° 
Ww 
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TEST 


005037 


01 
012760 


012760 
012702 


TST 1 


055614 
000001 
041001 
000000 
000000 
177777 
177777 
000021 
000003 


141001 
041001 


000006 
001142 
001136 
000006 


000034 
176000 
001136 
000034 
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001226 


SEQ 0152 
20$: ZEND OF TEST 
SARA ERE EERE ERE ERE 
TSTEST 60 RMDA/RMDC/RIP TEST 
SL ARERR REAR EERE EERE EERE RERREREEKEERRERERER EE 
T5160: 
SCOPE :SCOPE CALL 
MOV #STACK, SP ;LOAD THE STACK POINTER 
MOV S$BASE ,RO [RO = UNIBUS ADDRESS 
MOV TSTQUE,R1 :R1 = POINTER TO DEVICE 
MOV #60,$TESTN +;SET TEST NUMBER IN APT MAIL BOX 
CLR $GDDAT 
CLEAR, ENABLE DEBUG CLOCK, THEN PRESET RMDA AND RMDC 
PC,CNTCLR :GO CLEAR CONTROLLER 
mov »RMAR1(RO) =LOAD RMMR1 
MOV iMUR!DBEN,RMMAR1(RO) ;LOAD RMMR1 
MOV #0,RMER1(RO)  ;LOAD RMER1 
MOV #0. RMER1 (RO) LOAD RMER1 
MOV #-1,RMDA(RO) LOAD RMDA 
MOV #-1.RMDC(RO) LOAD RMDC 
EXECUTE yREAD IN PRESET TILL SET PULSE 
ARIP!GO,RMCS1 (RO) ;LOAD RMCS1 
we MOV #3,R2 
“mov ADMD !MUR ' DBEN! DBCK ,RMMR1 (RO) LOAD RMMR1 


MOV See alec (RO) ;LOAD 
10$ ISSUE 3 CLOCKS 


VERIFY RMDA IS ZERO 
MO ~~ tal mmaates STORE RMDA AT S8DDAT 


BRANCH IF RMDA RESET 


ADD ARMDA, $BDADR 
EMT i7o 

gyensty RMDC IS ZERO 

3 MOV RMDC(RO), 5 aed STORE RMDC AT $BDDAT 

BIC #XNUDC, SBDDA 
BEQ 30$ BRANCH IF RMDC RESET 
MOV RO, $S8DADR 
ADD #RMDC , $BDADR 
EMT 177 

30$: sEND OF TEST 


FLARE REAR EEEREAREE EEE EEA ERE 


:*TEST 61 


OFFSET COMMAND TEST 


Ci 
Ti 


CZRMPAQ RMO5/3/2 DSKLS 
T61 OFFSET COMMAND T 


3148 
3149 032010 
3150 032014 
3151 032022 

3152 
3153 032030 
032034 
032036 
3154 032040 
3155 032042 
032042 

3156 

57 
3158 032050 
59 56 


032170 
032174 
032176 


012737 
010037 
062737 
012737 


012769 


012760 
012760 
012702 


055370 
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SAAR REAR REREE REE 


T8161: 
SCOPE :SCOPE CALL 
MOV ASTACK, SP :LOAD THE STACK POINTER 
MOV S$BASE ,RO =RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
MOV #61, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
MOV RO, SBDADR 
ADD #RMDS , SBDADR 
MOV #0M, $GDDAT 
JSR PC, SETVV :GO SET VOLUME VALID 
BR 10$ [BRANCH TO 10$ IF NO ERROR 
BR 40$ 
10$: 
MOV #0,RMDC (RO) ZLOAD RMDC 
;ENABLE DEBUG CLOCK AND EXECUTE OFFSET COMMAND 
MOV #DMD 'MUR'DBEN,RMMR1(RO) ;LOAD RMMR1 
MOV MOFFSET'GO,RMCS1(RO)  =LOAD RMCS1 
aa MOV #2,R2 [R2=CLOCK COUNT 
“MOV ADMD 'MUR'DBEN!DBCK,RMMR1(RO) —-; LOAD _-RMMR1 
Mov #DMD MUR! DBEN, RMR (RO) :LOAD RMMR1 
BNE 20$ yISSUE 2 CLOCKS 
:VERIFY THAT OFFSET Mone IS SET 
MOV (RO) , SBDDAT ;STORE RMDS AT $8DDAT 
BIC COM. $BDDAT 
BNE 40$ ;BRANCH IF OM IS SET 
EMT 200 
40S: zEND OF TEST 
SERRA 
tSTEST 62 RETURN TO CENTER TEST 
J FARRAR ARERR KARE 
TST62: 
SCOPE :SCOPE CALL 
MOV ASTACK, SP ;LOAD THE STACK POINTER 
MOV SBASE ,RO 7RO = UNIBUS ADDRESS 
MOV TSTQUE,R1 [R1 = POINTER TO DEVICE 
MOV #62, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
MOV RO, $BDADR 
ADD ARMDS , SBDADR 
JSR PC, SETVV G60 SET VOL UME VALID 
BR 10$ [BRANCH TO 10$ IF NO ERROR 
BR 60$ 





mins 





CZRMPAO Ap ag DSKLS TST 1 
T62 RETURN TO CENTER TEST 


52 
3195 032260 
266 


3218 

3219 032402 
e550 032406 
3222 032414 





012760 
aah of 


00040 
104000 


012760 
012760 
012702 
pie 


ooo 
—_ 
wy 
& 


012737 


010037 
062737 


004737 


000200 
055512 


055370 


000012 
177776 
001140 


000032 
177577 


000032 


001226 


001136 
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ise! OFFSET DIRECTION AND OFFSET 
"MoV #OFD,RMOF(RO)  ;=LOAD RMOF 
JSR PC, SETOM ‘GO SET OFFSET MODE 
BR 20$ :BRANCH TO 20$ IF NO ERROR 


ZENABLE DEBUG CLOCK AND EXECUTE RETURN TO CENTER COMMAND 
@-? an PC, SETVV :GO SET VOLUME VALID 
BR 30$ :BRANCH TO 30$ IF NO ERROR 
nae BR 60$ 
"MOV ADMD !MUR'!DBEN,.RMMR1(RO) ;LOAD RMMR1 
MOV #RTC'GO,RMCS1 (RO) [LOAD RMCS1 
Me MOV #2,R2 


MOV ADMD ! MUR ! DBEN! DBCK , RMMR1 (RO) 
MOV + Sletten (RO) ;LOAD 


40$ ISSUE 2 CLOCKS 
VERIFY THAT OFFSET MODE IS RESET 
MOV RMDS (RO 


),SBDDAT ;STORE RMDS AT $8DDAT 
BIC #°COM, SBDDAT 


LOAD RMMR1 
RMMR1 


BEQ 50$ BRANCH IF OFFSET MODE RESET 
CLR SGDDAT 
EMT 201 
aa THAT OFFSET DIRECTION IS RESET 
MOV RMOF (RO) ,SBDDAT ;STORE RMOF AT SBDDAT 
BIC #*COFD,$BDDAT 
BEQ 60$ BRANCH IF OFD IS RESET 
CLR SGDDAT 
MOV RO, $BDADR 
ADD #RMOF , SBDADR 
EMT 202 
60$: sEND OF TEST 


J LARA REAR EKEEREEREREREEREREREREREEREREREEKEEEREEREEEREREEEEE 


:*TEST 63 RMDC CLEAR OFFSET TEST 
eRe tii it Tit t i titi i titiititiitTiLiTiTTiLTTTiTT TTT TTiTiiTt 
TST63: 

SCOPE ;SCOPE CALL 

NOP 

MOV #STACK, SP 


sLOAD THE STACK POINTER 
MOV S$BASE ,RO ;RO = DRESS 

MOV TSTQUE ,R1 
MOV #63,$TESTN 


MOV RO, $8DADR 
#RMDS , $BDAD 


UNIBUS ADD 
;R1_= POINTER TO DEVICE 
77SET TEST NUMBER IN APT MAIL BOX 


JSR PC, SETVV 


:GO SET VOLUME VALID 


SEQ 0154 


am 
nM 
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T63 RMDC CLEAR OFFSET TEST 


032420 
032422 

3223 032424 
3224 032426 
3225 032426 
032432 
032434 

26 


3230 032444 
3231 032452 
3232 032460 
3233 032462 
3234 032466 


3235 
3236 032470 
3237 
3238 
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001414 © 
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SEQ 0155 
BR 10$ ;BRANCH TO 10$ IF NO ERROR 
oat BR 40$ :SKIP REST OF TEST 
noe. PC,SETOM :GO SET OFFSET MODE 
BR 20$ :BRANCH TO 20$ IF NO ERROR 
EMT 
sWRITE THE DESIRED CYLINDER REGISTER AND VERIFY THAT OFFSET IS ZERO 
"Mov #0,RMDC (RO) ;LOAD RMDC 
MOV RMDS (RO) , SBDDAT SSTORE RMDS AT $BDDAT 
BIC #°COM, SBDDA 
BEG 4 
CLR $GDDAT 
EMT 203 
40$: zEND OF TEST 
SEAR REREEEEREEEEREEEKEEEEREEKEEEKERKEEEKEEKEKAEKK 
TSTEST 6% EBL CLEAR OFFSET TEST 
ss MAS teees esse tes e cece ceair errr ceri cecececrcrceccrrcscsc@ic@s<c@ricititiiras 7 
TST64: 
SCOPE :SCOPE CALL 
MOV #STACK, SP :LOAD THE STACK SPOINTER 
MOV S$BASE ,RO "RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 R1 = BOINTER YT TO DEVICE 
MOV #64, $TESTN +;SET TEST NUMBER IN APT MAIL BOX 
MOV LSTRK,RMDAO ;SETUP LAST TRACK AND 
MOVB  4#31..RMDAO [LAST SECTOR 
MOV 0, $8DADR SSETUP REGISTER FOR ERROR MSG 
ADD #RMDS , SBDADR 
JSR PC, SETVV :GO SET VOLUME VALID 
BR 10$ [BRANCH TO 10$ IF NO ERROR 
um BR 308 :SKIP REST OF TEST IF ERROR 
——- PC, SETOM :GO SET OFFSET MODE 
BR 20$ BRANCH TO 20$ IF NO ERROR 
20$: 


MOV td gy Ae LOAD RMOF 
MOV RMDAO,RMDA(RO) ;LOAD RMDA 


2FORCE END OF BLOCK AND VERIFY THAT OFFSET MODE IS CLEARED 
MOV #DMD ! MUR ! DBEN 1(RO) ;LOAD RMMR1 


MOV #DMD'MUR'DBEN!DEBL .RMMR1(RO) LOAD RMMR1 
ADMD | RMMR 1 


MUR! DBEN,RMMR1(RO) ;LOAD 
MOV RMDS (RO) , SBDDAT ;STORE RMDS AT SBDDAT 
BIC #*COM, SBDDA 
BEQ 30$ BRANCH IF OFFSET IS ZERO 
CLR $GDDAT 





C2 
T1 


CZRMPAO RMOS/3/2 DSKLS TST 1 
T64 EBL CLEAR OFFSET TEST 


3262 032654 104204 
3263 032656 
3264 


3265 


005037 001140 
3268 032710 005002 
3269 032712 010037 001136 
3270 032716 000024 


3272 

3273 032724 

3274 032724 004737 055614 
3275 032730 000001 


330 
3289 033030 5737 001530 
3290 033034 001363 
3291 033036 004777 146472 
3292 033042 010237 001174 
03 10420 
3294 033050 000416 
3295 033052 
3296 033052 004777 146456 


3305 033104 
3306 


MACRO 


001226 


001136 


001140 
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EMT 204 
308: END OF TEST 


FFARR EERERKEREEKERREKEEKEKERERAEEEREEREREERERE EE 


s*TEST 65 RUN AND GO TEST 


FFARR EEEEERRERREREEEEEEEREEEEEEEERERERER EEE 


T8165: 

SCOPE ZSCOPE CALL 
MOV ASTACK, SP ;LOAD THE STACK pROINTER 
MOV $BASE ,RO ‘RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 *R1 = POINTER TO DEVICE 
MOV #65, $TESTN +;SET TEST NUMBER IN APT MAIL BOX 
CLR SGDDAT ZINITIALIZE EXPECTED RESULT 
CLR R2 TINTIALIZE FUNCTION CODE 
MOV RO. SBDADR 
ADD #RMMR1, SBDADR 

iCLEAR THE MASSBUS AND ENABLE DEBUG CLOCK 
JSR PC, CNTCLR :GO CLEAR CONTROLLER 
MOV #DMD,RMMRI(RO) : RMMR 1 
MOV #DMD ' DBEN, RMMR1 (RO) sLOAD RMMR1 
MOV #0,RMER1(RO)  ;LOAD RMER1 
MOV #O.RMER2(RO) §:LOAD RMER2 

;LOAD THE FUNCTION CODE AND VERIFY RUN AND GO FLOP 

MOV R2,R3 ;ASSEMBLE FUNCTION CODE AND GO 
BIS #GO,R3 
MOV #200 WATCH :SET WATCHDOG TIMER VALUE ° 
JSR C ,acLOck SSTART THE CLOCK 

ae MOV RS. *RMCS1(RO)  :LOAD RMCS1 

“MOV RAR (RO) , S8DDAT :STORE RMMR1 AT SBDDAT 
BIC #°CRG, $BDDAT 
CMP S$GDDAT , SB8DDAT 
BEQ 20$ ;BRANCH IF RUN AND GO FLOP OK 
Ist WATCH ; TAKE ANOTHER SAMPLE IF CLOCK NOT ZERO 
JSR PC, aSTOP :STOP THE CLOCK 
V R2.$TMPO ;SAVE FUNCTION CODE FOR MSG 

EMT 205 

Pad 40$ :SKIP REST OF 

gn PC, aSTOP :STOP THE CLOCK 


y ADVNACE aio NEXT FUNCTION CODE - EXIT IF DONE 
CMP. #ILF76,R2 


BLO 40$ EXIT IF DONE 
CMP R2 ,AWCD CHANGE EXPECTED RESULTI IF 
BLO 30$ DATA COMMAND 
MOV #RG, $GDDAT 
30$: BR 10$ REPEAT TEST 





SEQ 0156 


—™N 
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T65 RUN AND GO TEST SEQ 0157 | 


3307 033106 40S: ZEND OF TEST 
3309 FARRER EREEEEREEREERRERREREREREREREEEEEEREREKEREEE 
tSTEST 66 SET IAE TEST 

2 5 MASA SALAAAASERAALESSASALASASELASLSSSAS SESSILIS TLCS ST LSS TTT. sy 
033106 TST66: 
033106 000004 SCOPE ZSCOPE CALL 
033110 000 NOP 
033112 012706 001100 MOV ASTACK, SP :LOAD THE STACK POINTER 
033116 013700 001276 MOV $BASE ,RO -RO = UNIBUS ADDRESS 
033122 013701 001462 MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
Kan 033126 012737 000066 001226 MOV #66, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
3311 033134 012702 033302 MOV #100$,.R2 zR2=TABLE POINTER 
3312 033140 10S: 
3313 033140 004737 055370 JSR PC, SETVV 7GO SET VOLUME VALID 
033144 000402 BR 20$ ;BRANCH TO 20$ IF NO ERROR 
033146 104000 EMT 
3314 033150 000453 BR 50$ :SKIP REST OF TEST 
3316 ;LOAD INVALID TRACK, SECTOR AND CYLINDER ADDRESS AND SET FORMAT TO 18 
3317 (33152 20$: 
3318 033152 012760 177777 000006 MOV #-1,RMDA(RO) LOAD RMDA 
3319 033160 012760 177777 000034 MOV #-1 RMD (RO) [LOAD RMDC 
3320 033166 012760 000000 000032 MOV #0, RMOF (RO) [LOAD RMOF 
3322 ENABLE DEBUG CLOCK AND LOAD FUNCTION CODE oll RMCSI WITH GO ON 
3323 033174 012760 041001 000024 #DMD'MUR'DBEN,RMMR1(RO) :LOAD RMMR1 
3324 033202 111203 MOVE (R2) .R3 
3325 033204 042703 177701 BIC #*CILF76,R3 
3326 033210 052703 000001 BIS #G0,R 
3327 033214 010360 000000 MOV RS, RMCS1 (RO) ;LOAD RMCS1 
3328 033220 116204 000001 MOVB (R2) ;GET CLOCK COUNT 
3329 033224 042704 177400 BIC wear Re 
;CLOCK THE COMMAND SEQUENCER 
3332 033230 30$: 
3333 033230 012760 141001 000024 MOV #DMD!MUR'DBEN!DBCK,RMMR1(RO)  : LOAD RMMR1 
3334 033236 012760 041001 000024 MOV ADMD 'MUR!DBEN.RMMR1 (RO) :LOAD RMMR1 
3335 033244 005304 DEC R4 
3336 033246 001370 BNE 
3338 ;SEE IF IAE HAS SET 
3339 033250 016004 000014 MOV RMER1 (RO), R4 —_ s STORE RMER1 AT R4 
3340 033254 042704 175777 BIC #°CIAE,R 
3341 033260 001007 BNE 50$ ;BRANCH IF IAE SET 
3343 ;1AE DID NOT SET = TRV ANOTHER FUNCTION CODE 
3344 033262 062702 000002 ADD #2,R 
3345 033266 105762 000001 TSTB ~—- 1(R2) 
3346 033272 100401 BMI 40$ ;BRANCH IF ALL CODES TRIED 
3347 033274 000721 BR 10$ 


3349 ; CANNOT SET IAE WITH ANY COMBINATION OF ADDRESS AND FUNCTION CODE 
3350 033276 40$: 
3351 033276 104206 EMT 206 





CZRMPAQ a iat AR ee TST 1 
T66 SET I 


3352 
3353 033300 
3354 
3355 
3356 033302 
3357 033302 
3358 033303 
3359 
3360 033304 
$40 033305 
3363 033306 
3364 033307 
3365 
3366 033310 
3367 033311 
3368 
3369 033312 
3370 033313 
3371 
3372 033314 
ey 033315 


3375 033316 
3376 033317 


3377 
3378 033320 
3379 033321 
3380 


3381 033322 
3382 033323 


3383 
3384 033324 
3385 


033324 


3387 

3388 033352 

3389 033354 

3390 033354 
033360 
033362 

3391 033364 

3392 

3393 

3394 

3395 033366 

3396 033366 


000411 


030 
002 
004 
002 
062 
002 


052 
002 


072 
002 


060 
002 
050 
002 
070 
002 


000 
377 


012760 


001100 
00 


2 
067 001226 


055370 


177777 000006 
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50$: BR 200 ; JUMP OVER TABLE 
{TABLE OF FUNCTION CODES AND CLOCK COUNTS FOR TEST 
"BYTE SEARCH SEARCH COMMAND 
"BYTE 2 
.BYTE SEEK :SEEK COMMAND 
"BYTE 2 
.BYTE WH :WRITE HEADER COMMAND 
‘BYTE 2 
.BYTE wCH :WRITE CHECK HEADER COMMAND 
“BYTE 2 
.BYTE RH ;READ HEADER COMMAND 
"BYTE 2 
-BYTE wD ;WRITE DATA COMMAND 
"BYTE 2 
-BYTE wCD ;WRITE CHECK DATA COMMAND 
"BYTE 2 
.BYTE RD :READ DATA COMMAND 
"BYTE 2 
BYTE ZEND OF TABLE 
"BYTE =1 
2008: zEND OF TEST 
SAAR EKREREEREEREEEEEEREEREREEEREEREEEEEEREKEEKEKEKEE 
TSTEST 67 SEARCH, SEEK, READ, WRITE TEST 
FIERA REAR EEEEERKEEEREEEEEEEREEEREERERERREREEREREEKEEKE 
TST67: 
SCOPE ZSCOPE CALL 
MOV ASTACK, SP ;LOAD THE STACK POINTER 
MOV S$BASE ,RO RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 *R1 = POINTER TO DEVICE 
MOV #67, $TESTN [SET TEST NUMBER IN APT MAIL BOX 
oe CLR R2 yINITIALIZE FUNCTION CODE 
"om PC, SETVV 760 SET VOLUME VALID 
BR 20$ [BRANCH TO 20$ IF NO ERROR 
BR 50$ 
;LOAD INVALID TRACK, SECTOR AND CYLINDER ADDRESS AND SET FORMAT 
510 18 BIT MODE 


MOV 





#-1,RMDA(RO) LOAD RMDA 








SEQ 0158 


ams 


ip oe ay hs DSKLS TST 1 


3397 033374 
3398 033402 
3399 


3400 
3401 033410 


PARR R ER RRR RS 
Soaweanunw=as 


3430 546 
3431 033550 
3432 033552 
3433 
3434 


033552 


3438 033612 
3439 033612 
033616 


033620 
3440 033622 


» SEEK, 

012760 
012760 
012760 
010203 
052703 
010360 


012737 


013737 
105237 


177777 
000000 


041001 
000001 
000000 


000002 


141001 
041001 


000002 
000076 


001100 
001276 
001462 
000070 


001330 
001415 


055370 
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READ, WRITE TEST 


000034 
000032 


000924 


001226 
001414 


MOV #-1,RMDC(RO) = LOAD RMDC 
MOV #0,,RMOF (RO) [LOAD RMOF 
;ENABLE DEBUG CLOCK AND LOAD FUNCTION CODE IN RMCS1 WITH GO ON 
MOV ADMD 'MUR'DBEN,RMMR1(RO) :LOAD 
MOV TASSEMBLE CODE AND GO 
BIS #60,R3 
MOV R3,RMCS1(RO) = LOAD RMCS1 
;CLOCK THE COMMAND SEQUENCER TO SET PULSE 
a MOV #2,R4 
"mov #DMD!MUR'DBEN!DBCK,RMMR1(RO) = LOAD RMMR1 
MOV #DMD MUR | DBEN. ROR (RO) ;LOAD RMMR1 
BNE 30$ 
;VERIFY IAE ACCORDING TO FUNCTION CODE TABLE 
MOV RMER1 (RO) , SBDDAT ;STORE RMER1 AT $BDDAT 
BIC “CIAE, SBDDAT 
MOV FNCDTB(R2) , SGDDAT ZASSEMBLE EXPECTED IAE 
BIC #ACIAE , SGDDAT 
CMP SGDDAT . SBDDAT 
BEQ 40$ ;BRANCH IF IAE OK 
MOV RO, SBDADR [SET UP ERROR MSG 
ADD ARMER1 , SBDADR 
MOV R2, $TMPO 
EMT 207 
BR 50$ :SKIP REST OF TEST 
jADVANCE TO NEXT FUNCTION CODE - EXIT IF DONE 
“ADD #2,R2 
CMP ILF76,R2 
BLO 50$ 
BR 10$ 
50S: :END OF TEST 
AAA EERE REREREREEEEKEEKEKEEEREEEERERERREEEEREEEREEREEE 
[*TEST 70 INVALID TRACK/SECTOR TEST 
FTAA ARERR 
TST70: 
SCOPE ZSCOPE CALL 
MOV #STACK, SP ;LOAD THE STACK POINTER 
MOV S$BASE ,RO =RO = UNIBUS ADDRESS 
MOV TSTQUE,R1 =R1 = POINTER TO DEVICE 
MOV #70, $TESTN +;SET TEST NUMBER IN APT MAIL BOX 
V LSTRK,RMDAO ZINITIALIZE TRACK ADDRESS 
sie INCB —- RMDAO+1 [SETUP FIRST INVALID ADDRESS 
a PC, SETVV :GO SET VOLUME VALID 
BR 208 SBRANCH TO 20$ IF NO ERROR 
BR 100$ :SKIP REST OF TEST 





SEQ 0159 


| Be aitett Se. ten 
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3486 0 
3487 034056 


10$: 





| INVALID TRACK/SECTOR TEST SEQ 0160 11 
3441 
| sabe ZCLEAR DESIRED CYLINDER, LOAD INVALID TRACK ADDRESS, AND SET 
344 -18 BIT FORMAT 
3444 033624 20$ 
3445 033624 012760 000000 000034 MOV #0,RMDC (RO) ZLOAD RMDC 
3446 033632 013760 001414 000006 MOV RMDAO,RMDA(RO) :LOAD RMDA 
3447 033640 012760 000000 000032 MOV #0,RMOF (RO) SLOAD RMOF 
3449 ZEXECUTE A SEARCH COMMAND TO WHERE ‘‘SET PULSE’’ IS ACTIVE 
3450 033646 012760 041001 000024 MOV #DMD 'MUR'!DBEN,RMMR1(RO) ;LOAD RMMR1 
3451 033654 012760 000031 000000 MOV ASEARCH!GO,RMCS1(RO)  =LOAD RMCS1 
3452 033662 012703 000002 MOV #2,R3 
3453 033666 30S: 
3454 033666 012760 141001 000024 MOV ADMD !MUR'!DBEN!DBCK,RMMR1(RO) LOAD _ RMMR1 
3455 033674 012760 041001 000024 MOV #DMD 'MUR'DBEN.RMMR1(RO) :LOAD RMMR1 
3456 033702 005303 DEC R3 
3457 033704 001370 BNE 30S yISSUE 2 CLOCKS 
3459 :VERIFY IAE IS SET 
3460 033 016037 14 001142 MOV RMER1(RO), SBDDAT :STORE RMER1 AT $8DDAT 
3461 033714 042737 175777 001142 BIC #*CIAE, $BDDA 
3462 033722 001015 BNE 40$ :BRANCH IF IAE IS ON 
3463 033 012737 002 001140 MOV MIAE ,SGDDAT ‘SETUP ERROR MESSAGE 
3464 033732 010037 001136 MOV RO, $8DADR 
3465 033 2737 001136 ADD #RMER1 , $BDADR 
3466 033744 013737 001414 001174 MOV RMDAO, $TMPO 
3467 033752 104210 EMT 210 
3468 033754 000422 BR 100$ 
3470 ;ADVANCE TO NEXT RMDA ADDRESS 
3471 033756 40S: 
3472 033756 105737 001415 TSTB = RMDAO+1 :TESTING INVALID SECTORS ? 
73 033762 001411 BEQ 50$ :Y 
3474 033764 105237 001415 INCB — RMDAO+1 : INCREMENT TRACK ADDRESS 
75 033 123727 001415 000200 MPB —s- RMDAO+1,4128. “DONE ? 
3476 033776 101705 BLOS 1 [NO, TEST NEXT TRACK ADDRESS 
77 034 012737 000035 001414 MOV #29. ,.RMDAO LOAD LOAD SECTOR ADDRESS AND 
034 005237 001414 50$: INC RMDAO : INCREMENT SECTOR ADDRESS 
034012 123727 001414 000200 CMPB —s- RMDAO, #128. [DONE ? 
3481 034020 101674 BLOS  10$ =NO, TEST NEXT SECTOR ADDRESS 
034022 100$: 
JRA REREEEKEREEEREEREEEEEEEEEEREEREEEREREEEERERE 
SSTEST 71 INVALID CYLINDER TEST 
J TAA 
034022 1ST71: 
034022 SCOPE :SCOPE CALL 
034024 240 NOP 
034026 012706 001100 MOV #STACK, SP ZLOAD THE STACK POINTER 
034032 013700 001276 MOV S$BASE .R tRO = UNIBUS ADDRESS 
034036 013701 001462 MOV TSTQUE ,R1 [R1 = POINTER TO DEVICE 
034042 012737 71 001226 MOV #71, $TESIN ::SET TEST NUMBER IN API MAIL BOX 
34050 012737 001467 001442 MOV #823. ,.RMDCO :SET FIRST INVALID CYLINDER 





%488 034056 
062 


3522 

3523 034256 

3524 034262 

3525 034270 

3526 

3527 

3528 

3529 034276 

3530 034276 
034302 


004737 


4 2760 


103713: 


_ RMOS/3/2 DSKLS TST 1 
INVALID CYLINDER TEST 


055370 


001442 
000000 
041001 
000031 


141001 
041001 


000014 
175777 


001442 
001442 


055370 
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000034 
000006 


000024 
000000 


002000 


SEQ 0161 
JSR PC,SETVV 7GO SET VOLUME VALID 
BR 208 [BRANCH TO 20$ IF NO ERROR 
ia BR 50$ :SKIP IF ERROR 
“MOV RMDCO,RMDC(RO) ;LOAD RMDC 
MOV #0,RMDA (RO) [LOAD RMDA 


ENABLE DEBUG CLOCK AND EXECUTE leit che COMMAND 
MOV #DMD ! MUR! DBEN,.RMMR1(RO) ;LOAD RMMR1 
MOV ane” ,RMCS1 (RO) LOAD RMCS1 


MOV ADMD ! MUR ! DBEN! DBCK , RMAR1 (RO) ;LOAD RMMR1 
MOV + ype sapere (RO) ;LOAD RMMR1 
BNE 30$ z ISSUE 2 CLOCKS 


VERIFY IAE IS SET 
MOV RMER1 (RO), — STORE RMER1 AT S$BDDAT 

BIC #°CIAE ,SBDDA 

BNE 40$ BRANCH IF IAE IS SET 

MOV ROS oo SETUP ERROR MESSAGE 


ADD #RMER1 , SBDADR 
MOV A Ne 0,$TMPO 


EMT 
BR 50$ 
pes CYLINDER ADDRESS 
; INC RMDCO : INCREMENT CYLINDER ADDRESS 
CMP RMDCO,#1024. DONE ? 
BLO 10$ zNO, TEST AGAIN 
50$: 
FARRER EERE ERK EKER 
SSTEST 72 SET AOE TEST 
| cpaeeseeeusecnesnncanessenensennnentsenenennannennenannennnnneD 
TST72: 
“oe ;SCOPE CALL 
MOV #STACK,SP ;LOAD THE STACK POINTER 
MOV S$BASE ,RO [RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 3R1 = POINTER TO DEVICE 
MOV #72, $TESIN :;SET TEST NUMBER IN APT MAIL BOX 
CLR RMOF O 718 BIT FORMAT MODE 
MOV LS TAK eee :SETUP LAST TRACK AND 
MOVB #29. ,.RMDAO 7LAST SECTOR 


toner e DEBUG CLOCK AND LOAD LAST SECTOR ADDRESS, MEMORY ADDRESS AND 
D COUNT, THEN LOAD WRITE DATA COMMAND WITH GO SET 


JSR PC, SETVV 7GO SET VOLUME VALID 
BR 15$ [BRANCH TO 15$ IF NO ERROR 


“rr 


Dae Ane a | RE 
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oe 
Sciesere fi 


3546 
3547 034410 
3548 034412 
3549 
3550 
3551 034414 
3552 034422 
3553 
3554 
3555 034430 
3556 034436 
3557 034444 


3558 034446 
3559 o3ces9 
3560 034460 


3568 6 
3569 034520 
3570 
3571 


3572 

3573 034546 
3574 034552 
3575 034560 


032737 
001007 
012737 
112737 
000667 


EMT 
BR 


te RMR 1 


‘SAVE OFFSET REG FOR ERROR MSG 
RMDC 


LOAD RMBA 
ice e a 


on 40$ ;SKIP TEST IF ERROR 

041001 000024 MOV #DMD !MUR ! DBEN REMRT (RO) 

1440 000032 MOV RMOFO,RMOF (ROS 
001440 001174 MOV RMOFO.$T 
001466 000034 MOV #822.,RMDC(RO) :LOAD 
001414 000006 MOV RMDAO.RMDA(RO) =LOAD RMDA 

177000 000002 MOV #-512. ,RMWC(RO) =LOAD RMWC 

103712 000004 MOV #BUFFER,RMBA(RO)” 
000061 000000 MOV #WD !GO,RMCS1 (RO) 
000014 MOV #14.R2 :R2 = 


COUNT eNOS 3-04 14-60... 


; CLOCK 
ggLOCK THE COMMAND SEQUENCER TO GENERATE SET PULSE 





141001 000024 MOV #DMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
041001 000024 “45 #DMD !MUR ! BEN, RMMR (RO) ;LOAD RMMR1 
BNE 20$ s ISSUE 2 CLOCKS 
sFORCE EBL TO GET TO OVERF LOW ADDRESS 
061001 000024 MOV ADMD ' MUR! DBEN! DEBL , RMMR1 ey ;LOAD RMMR1 
041001 000024 MOV 4DMD 'MUR! DBEN, RMMR j (RO) ;LOAD RMMR1 
; VERIFY THAT ADDRESS OVERFLOW ERROR IS SET 
000014 001142 MOV RMER1 (RO) , SBDDAT ;STORE RMER1 AT S$BDDAT 
176777 001142 BIC #°CAOE , SBDDAT 
BNE 30$ ;BRANCH IF AOE IS SET 
001136 MOV RO,$BDADR ;SETUP ERROR MESSAGE 
000014 001136 ADD #RMER1 , SBDADR 
001000 001140 MOV HACE, $GDDAT 
EMT 212 
BR 40$ 
30$: sEND OF TEST 
010000 001440 oo 7 ghaaiaaata vost 16 BIT FORMAT TEST ? 
010000 001440 MOV #FMT16,RMOFO SET 16 BIT FORMAT MODE AND 
000037 001414 MOVB 431. ,RMDAO LAST SECTOR 
BR 10$ 
40$: 
FLARE EEE EERE 
i*TEST 73 SET RMR TEST 
> apm ae aaa nt a i 
TST73: 
xoe :SCOPE CALL 
001100 MOV MSTACK, SP ;LOAD THE STACK POINTER 
001276 MOV SBASE .RO *RO = BUS ADDRESS 
001462 MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
000073 001226 MOV #73, $TESTN ::SET TEST NUMBER IN APT MAIL BOX 
001136 MOV RO, $8DADR :SETUP REGISTER ADDRESS FOR MSG 
000014 001136 ADD #RMER1 , SBDADR 
26 #100$,R2 INITIALIZE TABLE POINTER 


SEQ 0162 


“am 
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173 SET RMR SEQ 0163 
3577 :CLEAR THE DEVICE AND ENABLE DEBUG CLOCK 
3578 034564 10S: 
3579 034564 055614 JSR PC, CNTCLR :GO CLEAR CONTROLLER 
3580 034570 012760 000001 000024 MOV ,RMMAR1 : 
3581 034576 012760 041001 000024 MOV ADMD ‘MUR! DBEN,RMMR1(RO) ;LOAD RMMR1 
3582 034604 012760 000000 000014 MOV #0,RMER1(RO) ;LOAD RMER1 
3583 034612 012760 000000 000042 MOV #O0.RMER2(RO) = LOAD RMER2 
3585 7SET GO THEN WRITE THE REGISTER SPECIFIED BY THE TABLE 
3586 034620 012760 000001 000000 MOV #GO,RMCS1(RO)  ;LOAD RMCS1 
3587 034626 011203 MOV (R25 ,R3 ;GENERATE REGISTER ADDRESS 
3588 034630 060003 ADD RO, 
3589 034632 012713 041001 MOV ADMD ! MUR ! DBEN, (R3) ZWRITE THE REGISTER 
3591 :VERIFY RMR ACCORDING TO TABLE 
3592 034636 016037 000014 001142 MOV RMER1 (RO), SBDDAT :STORE RMER1 AT $8DDAT 
3593 034644 042737 177773 001142 BIC TOCRPR. SBDDAT 
3594 034652 016237 001140 MOV 2(R2) , $GDDAT :GET EXPECTED RESULT FROM TABLE 
3595 034660 023737 001140 001142 CMP SGDDAT , SBDDAT 
3596 034666 001411 BEQ 30$ :BRANCH IF RMR IS OK 
3597 034670 011237 001174 MOV (R2) ,$TMPO TSAVE TEST REGISTER 
3598 034674 032762 000004 000002 BIT ARMR, 2(R2) 
3599 034702 001002 BNE 20$ ;BRANCH IF ERROR SHOULD BE ONE 
3600 034704 104213 EMT 213 
3601 034706 000401 BR 30$ 
3602 034710 20$: 
eal 034710 104214 EMT 214 
3604 : ADVANCE TABLE POINTER, EXIT IF DONE 
3605 034712 30$: 
3606 034712 062702 000004 ADD #4 R2 
3607 034716 005712 TST (R2) 
720 100401 BMI +35 sEXIT IF ENTRY NEGATIVE 
3609 034722 000720 BR 
3610 034724 000410 40$: BR 500s ; JUMP OVER TABLE 
3612 ; TABLE OF REGISTER ADDRESSES AND RMR VALUES 
3613 034726 100$: 
3614 034726 000016 .WORD  RMAS ZATTENTION SUMMARY REG 
3615 034730 000000 “WORD 0 [RMR = 0 
3617 034732 000024 .WORD  RMMR1 :MAINTENANCE REG 
3618 034734 000000 “WORD 0 [RMR = 0 
3620 034736 000006 .WORD RMDA :DISK ADDRESS REG 
35) 034740 000004 .-WORD RMR :RMR = 1 
3623 034742 177777 .WORD  -1 ZEND OF TABLE 
3604 034744 000000 “WORD 0 
5626 034746 200$: :END OF TEST 
3628 FREER REE EEEEREREEREREEREREEEREREAEREREAEEEREEE EERE 
SSTEST 74 PGM STATUS CHE‘K 
FLERE ERE EEE EEE EE EEE EE EERE 
034746 TST74: 
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PGM STATUS CHECK SEQ 0164 
034746 000004 SCOPE SCOPE CALL 
034750 000240 NOP 
034752 012706 001100 MOV - #STACK, SP ;LOAD THE STACK POINTER 
0347 3700 001276 MOV —« $BASE,RO RO = UNIBUS ADDRESS 
034762 013701 001462 MOV —« TSTQUE,R1 :R1_= POINTER TO DEVICE 
034766 012737 74 001226 MOV #74, $TESTN iISET TEST NUMBER IN APT MAIL BOX 
3630 /CLEAR AND READ DRIVE TYPE AND DRIVE STATUS 
3631 034774 004737 055614 JSR PC, CNTCLR ;G0 CLEAR CONTROLLER 
3632 035000 016037 000026 001174 MOV - RMDT(RO).$TMPO STORE RMDT AT STMPO 
3633 035006 016057 000012 001142 MOV - RMDS(RO)-$BDDAT :STORE RMDS AT $BDDAT 
OMIT TEST IF DRQ IS ON = ELSE VERIFY THAT PGM IS OFF 
035014 032737 004000 001174 BIT  _ #DRQ,$TMPO 
3637 035022 00101 BNE BRANCH IF DRQ IS ON 
035024 042737 176777 001142 BIC - #*CPGM, SBDDAT 
3639 035032 001410 BEQ ~=s_:10$ BRANCH IF PGM IS OFF 
035034 005037 001140 CLR SGDDAT 
3641 035040 010037 001136 MOV —- RO, SBDADR 
2 035044 062737 12 001134 ADD — #RMDS, SGDADR 
3643 035052 104215 EMT = 215 
3644 035054 10S: END OF TEST 
FREAK EERERREEERREREREEEEREREEREREEEKEEKEERKEKEKREK 
SATEST 75 DVA/DPR STATUS CHECK 
LARA REAR EEE EEEREREERERREEKREREEREEREEEEEEEERERERREREKE EH 
035054 15175: 
035054 SCOPE ;SCOPE CALL 
035056 000240 NOP 
5060 012706 001100 MOV —s« #STACK, SP ;LOAD THE STACK POINTER 
5064 013700 001276 MOV —« SBASE,, RO :RO = UNIBUS ADDRESS 
035070 013701 001462 MOV _—«sTSTQUE,R1 R1_= POINTER TO DEVICE 
soup 0220 012757 75 001226 MOV «#75, STESTN ::SET TEST NUMBER IN APT MAIL BOX 
3648 CLEAR AND VERIFY THAT DVA IS SET 
3649 035102 004737 055614 JSR PC, CNTCLR ;GO CLEAR CONTROLLER 
3650 035106 016037 000000 001142 MOV —«RMCS1(RO) ,SBDDAT™ ;STORE RMCS1 AT $BDDAT 
3651 035114 042737 173777 001142 BIC — #*CDVA, SBODAT 
3652 035122 001 BNE —- 10S BRANCH IF DVA IS ON 
3653 035124 012737 004000 001140 MOV —- #DVA._ SGDDAT 
3654 035132 010037 001136 MOV —- RO, {SS0ADR 
3655 055136 104216 EMT 216 
3657 :VERIFY THAT DPR IS SET 
3658 035140 10$: 
3659 035140 016037 000012 001142 Moy RDS (RO) .SBDDAT ;STORE RMDS AT SBDDAT 
3660 035146 042737 177377 001142 BIC —- #*CDPR, SBDDAT 
3661 035154 001011 BNE 208 
3662 035156 012737 000400 001140 MOV § #DPR, SGDDAT 
3663 035164 010037 001136 MOV —- RO, SBDADR 
3664 035170 062737 000012 001136 ADD —- #RMDS, SBDADR 
3665 035176 104217 EMT 217 
$667 035200 208: END OF TEST 
3669 FLARE REE REE RE EERE RR EERRE RE REEREE EEE E ERE EEEREEEEEEE EEE 
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3670 

3671 035226 
035232 
035234 

3672 035236 

3673 

3674 


3675 035240 
3676 035240 
3677 


3678 

3679 035246 
3680 035252 
3681 035256 
3682 


368 
3684 035260 
368 


3699 
3700 035356 
035362 


035364 
3701 035366 
3702 





001462 
000076 
055370 


000013 
000040 
037777 
000000 


000012 
001000 


000040 
037777 


001136 
000040 


001100 
001276 
001462 
000077 


055370 
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001226 


000000 


001226 


SEQ 0165 
i*TEST 76 PORT REQUEST TEST, PART 1 
PERERA EAR REE EERE REE REE AR ERE REE EERE 
18176: SCOPE SCOPE CALL 
nov Saase ho 2 pe inieus toon POINTER 


DRESS 
;R1 = POINTER TO DEVICE 
>;SET TEST NUMBER IN APT MAIL BOX 


:GO SET VOLUME VALID 
:BRANCH TO 10$ IF NO ERROR 


MOV TSTQUE ,R1 
MOV #76, $TESTN 


JSR PC,SETVV 
10$ 


BR 

EMT 

BR 208 

EXECUTE A RELEASE TO RESET REQUEST FLOP 

"MoV #RLEASE!GO,RMCS1(RO) = LOAD RMCS1 

;READ RMMR2 AND SKIP TEST IF REQUEST FLOPS ARENT RESET 
MOV RMMR2 (RO), STORE RMMR2 AT R2 
BIC #°C<ROA!ROB>, 
BNE 20$ 

;READ RMCS1 TO SET REQUEST FLOP 
MOV RMCS1(RO),R2 ;STORE RMCS1 AT R2 


VERIFY THAT REQUEST FLOP IS SET IF PGM IS SET 
MOV RMDS (RO) .R5 STORE RMDS AT R5 


BIT #PGM,R5 :SEE IF PGM IS SET 
BEQ 20$ ;DONT TEST REQUEST IF PGM IS ZERO 
MOV RMMR2 (RO) , SBDDAT zSTORE RMMR2 AT S$BDDAT 


BIC #*C<RQA!RQB>,$BDDA 
BNE BRANCH IF REQUEST IS SET 


EMT 2 

20$: 
FERRER REE ERE EERE 

SSTEST 77 PORT REQUEST TEST, PART 2 
SLEEK 
TST77: 

scope ;SCOPE CALL 

MOV ASTACK, SP LOAD THE STACK POINTER 

MOV SBASE ,RO ;RO = UNIBUS ADDRESS 

MOV TSTQUE ,R1 *R1 = POINTER TO DEVICE 

MOV #77, , STESTN :;SET TEST NUMBER IN APT MAIL BOX 

JSR PC, SETVV :GO SET VOLUME VALID 

ee 10$ ;BRANCH TO 10$ IF NO ERROR 

BR 20$ 


es 


CZRMPAO RMOS/3/2 DSKLS TST 1 
177 PORT REQUEST TEST, PART 


3703 
3704 035370 
3705 035370 
3706 


3707 
3708 035376 
3709 035402 
3710 035406 
3711 
3712 
3713 035410 
3714 


3715 
a 035416 


60 
3725 035462 
3726 
3727 


3728 

3729 035510 
035514 
035516 

3730 035520 

3731 


3732 
3733 035522 


3734 035522 - 
3735 


3737 035530 
3738 035534 
3739 035540 
3740 


3741 
3742 035542 
3743 


3744 

3745 035550 
3746 035554 
3747 035560 





000013 
000040 
037777 
177777 


000012 
001000 


000040 
037777 


001136 
000040 


001100 
001276 
001462 
000100 


055370 
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000000 


000016 


001226 


000006 





13 


EXECUTE A RELEASE TO RESET REQUEST FLOP 
"MOV WRLEASE!GO,RMCS1(RO)  ;LOAD RMCS1 
;READ RMMR2 AND SKIP TEST IF REQUEST FLOPS ARENT RESET 

MOV RMMR2 R2 


RO) ,R2 :STORE RMMR2 A 
BIC #*C<RQA!RQB>,R2 
BNE 208 


: WRITE "a See SUMMARY REGISTER TO SET REQUEST FLOP 
#~1 ,RMAS (RO) ;LOAD RMAS 


VERIFY THAT REQUEST FLOP IS SET IF PGM IS SET 
MOV RMDS (RO) ,R5 STORE RMDS AT R5 


BIT #PGM,RS SEE IF PGM IS SET 
BEQ 20$ ;DONT TEST REQUEST IF PGM IS = 
MOV RMMR2 (RO), $BDDAT ;STORE RMMR2 AT SBDDA 
BIC #*C<RQA!RQB>,$BDDAT 
BNE 20$ 
MOV RO, $8DADR 
ADD ARMMR2 , SBDADR 
EMT 221 
20$: 


Ff AAR RARER EREEEREREEKKKKE 


[*TEST 100 PORT REQUEST TEST, PART 3 


FF AAR EEEEEEREKERREEE 


TST100: 
SCOPE :SCOPE CALL 
MOV #STACK, SP :LOAD THE STACK POINTER 
MOV $BASE ,RO "RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 [R1 = POINTER TO DEVICE 
MOV #100, $TESTN 7;SET TEST NUMBER IN APT MAIL BOX 
JSR PC,SETVV :GO SET VOLUME VALID 
BR 10$ [BRANCH TO 10$ IF NO ERROR 
BR 20$ 


EXECUTE A RELEASE COMMAND TO RESET REQUEST FLOP 
"MOV #RLEASE'GO,RMCS1(RO) LOAD RMCS1 


READ RMMR2 AND SKIP_TEST IF REQUEST FLOPS ARENT RESET 
MOV RMMR2 (RO) ,R2 STORE RMMR?2 AT R2 
BIC #*C<RQA! RQB>,R2 
BNE 20$ 


;WRITE RMDA TO SET REQUEST FLOP er Rn acticin mnie 
MOV #0. .RMDA(RO) ;LOAD RMDA 


VERIFY THAT REQUEST FLOP IS SET IF PGM IS SET 
MOV RMDS (RO) .R5 STORE RMDS AT R5 
BIT #PGM,R5 :SEE_IF PGM IS SET 
BEQ 20$ DONT TEST REQUEST IF PGM IS ZERO 


SEQ 0166 


an 
—hms 


une RMO5/3/2 DSKLS TST 1 


PORT REQUEST TEST, PART 


35562 
3752 035604 
eer 035612 
3755 035614 
3756 
3757 


035614 


3 
3761 035642 
035646 
035650 
3762 035652 
3763 
3764 
3765 035654 
3769 035674 
5674 
3770 035702 
3771 035710 
3772 035712 
3773 


3774 

3775 035714 
3776 035722 
3777 730 


378 

3788 035770 
3789 035770 
3790 035774 
3791 036002 


016037 
042737 


001006 
010037 
062737 
104222 


pieree 
01 


000040 
037777 
001136 
000040 
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MAC 
3 
001142 MOV RMMR2 (RO) , SBDDAT ;STORE RMMR2 AT $BDDAT 
001142 BIC #°C<RQA!ROB>, SBDDAT 
BNE 20$ 
MOV RO, SBDADR 
001136 ADD #RMMR2 , SBDADR 
EMT 222 
20$: 
SERA RENEE RARER EERE EEE REKEEREREE 
SRTEST 101 RELEASE TEST 
J LARA ARERR EREREREREEEKEREREEREREREREEEEEEEEREREEEEKEEEE 
1$T101: 
SCOPE :SCOPE CALL 
MOV ASTACK, SP :LOAD THE STACK POINTER 
MOV SBASE ,RO [RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 *R1 = POINTER TO DEVICE 
001226 MOV #101,$TESTN +;SET TEST NUMBER IN APT MAIL BOX 
;REQUEST FLOP SHOULD SET WHEN WRITTING RMCS1 
JSR PC,SETVV :GO SET VOLUME VALID 
BR 10$ ‘BRANCH TO 10$ IF NO ERROR 
BR 40$ 
EXECUTE A RELEASE COMMAND 
000024 “mov ADMD! DBEN!MUR,RMMR1(RO) :LOAD RMMR1 
000000 MOV #RLEASE!GO,RMCS1(RO) | :LOAD RMCS1 
ra MOV #2,R2 
000024 "MOV #DMD!DBEN!MUR!DBCK,RMMR1(RO)  ; LOAD RMMR1 
000024 MOV #DMD 'DBEN'MUR,RMMR1(RO) ;LOAD RMAR1 
BNE 20$ yISSUE 2 CLOCKS 
: VERIFY REQUEST FLOPS ARE RESE 
001174 MOV RMDT (RO) SAPO :STORE RMDT AT STMPO 
001142 MOV RMMR2 (ROS , $BDDA zSTORE RMMR2 AT SBDDAT 
001142 BIC #°C<RQA'ROB>, SBDDAT 
BEQ 40 ;BRANCH IF REQUESTS ARE RESET 
001174 BIT #DRQ,$TMPO 
BEQ ;BRANCH IF SINGLE PORT DEVICE 
001142 BIT #ROA, SBDDAT 
BEQ 40$ :BRANCH IF RQA IS RESET 
001142 BIT #ROB, SBDDAT 
BEQ 40$ ;BRANCH IF RQB IS RESET 
;DRQ IS ZERO AND A REQUEST FLOP IS ON, OR, DRQ IS ONE AND 
80TH REQUEST FLOPS ARE ON 
"MoV RO, SBDADR 
001136 #RMMR2 , SBDADR 


ADD 
EMT 


SEQ 0167 


T101 


3792 036004 
3793 


wise 
Ba 
KREVRRAS 


SOPERES 
eee 


RRRRE 








CZRMPAQ RMOS/3/2 DSKLS 
RELEASE TEST 


000004 
000240 


TST 1 


000012 
077777 
001136 


000012 
001140 


000016 
001142 
001140 


001136 
000016 
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001142 


001136 


40$: END OF TEST 
IBAA IIIOIID II IISIIISIIISIIIIDIOOIIIIIIDIOUUIIII ER nth thtthtt 
TRTEST 102 WRITE ATA TEST ‘ 
i Ci P iii Tipit iri iii ti iittititiititi tii titi ty 
TST102: 
—* SCOPE CALL 
MOV STACK, SP :LOAD THE STACK POINTER 
MOV SBASE ,RO 7RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :R1_= POINTER TO DEVICE 


MOV #102, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 


CLEAR THE wsen | oa t meaner MODE THEN SET UNIT READY 
JSR GO CLEAR CONTROLLER 

LOAD RMMR1 

LOAD RMER1 


MOV #O.RMER2(RO) = LOAD RMER2 
MOV ADMD ! MUR, RMMR1 (RO) ;LOAD RMMR1 


WRITE THE ne at. _ REGISTER 


BIC #*CUNTMSK ,R2 
MOVB  ATNTBL(R25,R3 
BIC #*CATNMSK,R 

MOV R3, RMAS ( StROD ZLOAD RMAS 


READ RMDS AND VERIFY THAT ATA IS RESET 
MOV RMDS(RO) ,SBDDAT ;STORE RMDS AT S8DDAT 
BIC #*CATA, SBDDAT 


sASSEMBLE THE ATA BIT IN R3 


BEQ 10$ BRANCH IF ATA IS RESET 
MOV RO, $BDADR 

ADD #RMDS , $BDADR 

CLR S$GDDAT 

EMT 224 

BR 208 


igen RMAS AND VERIFY ATA IS RESET 


a RMAS(RO),$BDDAT ;STORE RMAS AT $BDDAT 
BIC R3,$BDDAT 
BEQ 20$ BRANCH IF ATA IS RESET 
CLR $GDDAT 
MOV RO, $BDADR 
ADD #RMAS , SBDADR 
EMT 225 
20$: END OF TEST 
Pritt iii iii iri titi titi iii tititi titi tititititititititi itt? 
TRTEST 103 RESET ATA BY GO TEST 
" -ne--neenamenenenaemeeeeeneeeernaenis 
TST103: 


SCOPE SCOPE CALL 
NOP 


SEQ 0168 


Ci 
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T103 RESET ATA BY GO TEST SEQ 0169 
036212 pier 08 001100 MOV STACK, SP sLOAD THE ys POINTER 
036216 013700 001276 MOV SBASE ,RO 7RO = UNIBUS ADDRESS 
036222 013701 001462 MOV TSTQUE ,R1 R1_= POINTER TO DEVICE 
036226 012737 000103 001226 MOV #103, S$TESTN t3SET TEST NUMBER IN APT MAIL BOX 
737 055614 JSR PC,CNTCLR :GO CLEAR CONTROLLER 
3835 036240 012760 000001 000024 MOV #DMD , 1(RO) ;LOAD RMMR1 
012760 000000 000014 MOV #0 ,RMER1 (RO) LOAD RMER1 
3837 036254 012760 000000 000042 MOV pa Pp 9 Pye ;LOAD RMER2 
tee 036262 012760 041001 000024 MOV #DMD!MUR! DBEN,RMMR1(RO) ;LOAD RMMR1 


WITH DEBUG CLOCK ert SET GO AND VERIFY THAT ATA IS RESET 
MOV #G0,RMCS1(RO ; LOAD $1 


036270 012760 1 000000 ) 
3842 036276 016037 000012 001142 MOV RMDE CRO? . SEDDAT SSTORE RMDS AT $8DDAT 
3843 036304 042737 077777 001142 BIC #*CATA, SBDDAT 
3844 036312 001410 BEG 10$ :BRANCH IF ATA IS RESET 
3845 036314 005037 001140 CLR $GDDAT 
3846 036320 010037 001136 MOV RO, $BDADR 
3847 036324 062737 000012 001136 ADD #RMDS , SBDAD 
3848 036332 104226 EMT 226 
3850 036334 108: ZEND OF TEST 
3852 FREER REKKKEEREKEEEEEKEKEKEKKEEEREEEKEEEEEEREEREKEREEEEKEREERKEKEE 
SSTEST 104 UNIT READY ATA TEST 
aie Poe nee ree ee re tee ae eae ee 
036334 15T104: 
036334 000004 SCOPE ZSCOPE CALL 
036336 240 NOP 
036340 012706 001100 MOV ASTACK, SP ;LOAD THE STACK POINTER 
0 001276 MOV SBASE ,RO [RO = UNIBUS ADDRESS 
036350 013701 001462 MOV TSTQUE ,R1 ‘R17 = POINTER TO DEVICE 
ot 54 737 000104 001226 MOV #104, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
3854 :SET DIAGNOSTIC MODE AND CLEAR A 
3855 036362 004737 055614 JSR PC, CNTCLR "60 CLEAR CONTROLLER 
3856 036366 012760 000001 000024 MOV #DMD,RMMR1(RO) =LOAD RMMR1 
3857 036374 012760 000000 000014 MOV #0.RMER1(RO) § :LOAD RMER1 
3858 036402 012760 000000 000042 MOV #O.RMER2(RO) § :LOAD RMER2 
3859 036410 012760 177777 000016 MOV #~-1,RMAS(RO) § :LOAD RMAS 
;SET UNIT READY AND VERIFY ATA IS SET 
3862 036416 012760 001001 000024 MOV ADMD 'MUR,RMMR1 (RO) :LOAD RMMR1 
3863 036424 016037 000012 001142 MOV RMDS (RO); SBDDAT ;STORE RMDS AT $BDDAT 
036432 042737 077777 001142 BIC #°CATA, SBDDA 
3865 036440 001011 BNE 10$ ;BRANCH IF ATA IS SET 
036442 010037 001136 MOV RO, SBDADR 
3867 036446 37 000012 001136 ADD ARMDS , SBDADR 
3868 036454 012737 100000 001140 MOV HATA, $GDDAT 
3869 036462 104227 EMT 227 
3871 CLEAR ATA, RESET UNIT READY, AND VERIFY ATA IS SET 
3872 036464 10$: 
3873 036464 012760 177777 000016 MOV #1 ,RMAS(RO) — ; LOAD RMAS 
3874 036472 012760 000001 000024 MOV #DMD.RMMR1(RO) :LOAD RMMR1 
3875 036500 016037 (00012 001142 MOV RMDS(RO),$BDDAT :STORE RMDS AT $BDDAT 





am 
it 





— RMO5S/3/2 DSKLS 
T104 UNIT READY ATA 


3876 036506 
3877 036514 
3878 036516 
3879 036522 
3880 036530 
3881 036536 
3883 036540 
3884 


3885 


3910 
3911 036722 
3912 036722 


012702 


004737 


TST 1 
TEST 


077777 
001136 


000012 
100000 


055614 
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001142 BIC #*CATA, SBDDAT 
BNE 20$ 
MOV RO, $SBDADR 
001136 ADD ARMDS , $BDADR 
001140 MOV MATA, $GDDAT 
EMT 230 
20$: END OF TEST 
[RRARRA REAR ERE ERE ERE REE EER REE REE Ee 
TRTEST 105 ERROR ATA TEST 
SAAR RRR REAR RERRR RE RER EERE RER ERR 
TST105: 
SCOPE SCOPE CALL 
MOV AMSTACK, SP ;LOAD THE STACK POINTER 
MOV five SE ,RO :RO = UNIBUS ADDRESS 
MOV STQUE ,R1 :R1 = POINTER TO DEVICE 
001226 MOV hose STESTN 7;SET TEST NUMBER IN APT MAIL BOX 
:CLEAR THE DEVICE AND a” stew! y 
JSR PC,CNTCLR O CLEAR CONTROLLER 
000024 MOV P TOAD ROP RMMR 1 
000014 MOV #0 ,RMER1 (RO) LOAD RMER1 
000042 MOV #0 ,.RMER2 (RO) LOAD RMER2 
000016 MOV #-1 ,RMAS (RO) ;LOAD RMAS 
:WRITE ONES IN ERROR REGISTER 1 AND VERIFY ATA IS SET 
000014 MOV #~1 ,RMER1 (RO) LOAD 
001142 MOV RMDS (RO), — ;STORE RMDS AT SBDDAT 
001142 BIC #°CATA, SBDD 
BNE 10$ 
001140 MOV HATA, $GDDAT 
MOV RO, $8DADR 
001136 ADD #RMDS , SBDADR 
EMT 231 
10$: sEND OF TEST 
DOI IIIOIISIIIUIIIOIUIOUII IOUT ITER REE thik 
TRTEST 106 REGISTER TRANSFER ATA TEST 
Fanaa ata ata ati 
TST106: 
— SCOPE CALL 
MOV AMSTACK SP :LOAD THE STACK POINTER 
MOV SBASE ,RO ;RO = UNIBUS ADDRESS 


001226 


MOV =—s- #100$,R2 


MOV TSTQUE ,R1 
MOV #106, $TESTN 


:R1_= POINTER TO DEVICE 
3:SET TEST NUMBER IN APT MAIL BOX 


: INITIALIZE TABLE ADDRESS 


ge Onte COMPOSITE ERROR AND RESET ATA 


JSR PC, CNTCLR :GO CLEAR CONTROLLER 


SEQ 0170 | 


am 
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T106 ~=—- REGISTER TRANSFER ATA TEST SEQ 0171 
3913 036726 012760 000001 000024 MOV #DMD,.RMMR1(RO) ;LOAD RMMR1 : 
3914 036734 012760 177777 000014 MOV #-1,RMER1(RO) LOAD RMERT 
3315 036742 012760 177777 000016 MOV #-1,RMAS(RO) = LOAD RMAS 
3917 ;WRITE THE TEST REGISTER AND VERIFY ATA 
3918 036750 011203 MOV (R2) ,R3 ;GENERATE REGISTER ADDRESS 
3919 036752 060003 ADD RO,R3 
3920 036754 005013 CLR 


(R3) 
MOV RMDS (RO) ,SBDDAT ;STORE RMDS AT $BDDAT 


367 
3921 036756 016037 001142 
3922 036764 042737 077777 001142 BIC #*CATA, SBDD 
3923 036772 016237 001140 MOV 2(R2), SeppaT. 
4 03 023737 001140 001142 CMP $GDDAT, SBDDAT 
925 037006 001410 BEQ 10$ ;BRANCH IF ATA IS OK 
3926 037010 010337 001174 MOV R3,$TMPO 
3927 037014 010037 001136 MOV RO. $BDADR 
3928 037020 062737 000012 001136 ADD #RMDS , SBDADR 
3929 037026 104232 EMT 232 
;MOVE TABLE POINTER = EXIT IF DONE 
3932 037030 10$: 
2933 037030 062702 000004 ADD #4 ,R2 
3934 037034 005712 TST (R2) 
3935 037036 100401 BMI 20$ yEXIT IF ENTRY MINUS 
3936 037040 000730 BR 5$ 
3937 037042 000410 20$: BR 2008 ; JUMP OVER TABLE 
3939 ; TABLE OF REGISTER ADDRESSES AND ATA BITS 
3940 037044 100$: 
3941 037044 000016 .WORD RMAS 
3942 037046 000000 WORD 
3944 037050 000006 .WORD  RMDA 
3945 037052 100000 [WORD ATA 
3947 037054 000000 .WORD RMCS1 
3948 037056 000000 WORD 
3950 037060 177777 .WORD  -1 ZEND OF TABLE 
3991 037062 000000 “WORD 
3953 037064 200S: ZEND OF TEST 
3955 FLERE ERR 
s*TEST 107 P SET ATA TEST 
FARRAR RAE 
037064 TST107: 
037064 000004 SCOPE ZSCOPE CALL 
037066 000240 NOP 
037070 012706 001100 MOV ASTACK, SP ;LOAD THE STACK POINTER 
037074 013700 001276 MOV $BASE ,RO :RO = UNIBUS ADDRESS 
037100 013701 001462 MOV TSTQUE,R1 R1 = POINTER TO DEVICE 
cn 037104 012737 000107 001226 MOV #107, $TESIN ::SET TEST NUMBER IN APT MAIL BOX 
3957 037112 012702 037254 MOV #100$,R2 sINITIALIZE TABLE POINTER 


3958 037116 10$: 
3959 037116 004737 055370 JSR PC,SETVV :GO SET VOLUME VALID 





am 


T107 


CZRMPAO wees DSKLS 


037122 

037124 
3960 037126 
961 


3063 037130 
130 


7162 
3972 037170 
3973 037172 
3974 


3975 
3976 037174 
3977 037202 


3998 037262 
3999 
4000 


037262 


4001 

4002 037310 
4003 037314 
4004 037314 





SET ATA TEST 


000402 
104000 
000451 


012760 
011203 
052703 
010 


012703 


000014 
000016 
177777 


012737 
012702 
004737 


TST 1 


041001 
000001 
000000 
000003 
141001 
041001 


000012 
077777 
001136 
000012 


100000 
001174 


000002 
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000024 


001226 


BR 208 ;BRANCH TO 20$ IF NO ERROR 
BR 50$ 

sEXECUTE THE COMMAND FROM THE TABLE 

“MOV #DMD !MUR'!DBEN,RMMR1(RO) :LOAD RMMR1 

MOV (R2) .R3 GET FUNCTION CODE 
BIS #G0,R3 
MOV R3,RMCS1(RO) — ; LOAD RMCS1 

a MOV #3.R3 


MOV ADMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
MOV + Sciatica (RO) ;LOAD RMMR1 


BNE 30$ 
VERIFY THAT ATA IS SET 
MOV 


RMDS(RO), SBDDAT ;STORE RMDS AT $BDDAT 
BIC #*CATA, SBDD 
BNE 40$ 
MOV RO, $BDADR 
ADD ARMDS , SBDADR 
MOV HATA, $GDDAT 
MOV (R2),$TMPO 
EMT 233 
jADVANCE TABLE POINTER-EXIT IF DONE 
"ADD #2,R2 
TST (R2) 
BMI 50$ 
BR 10$ 
50$: BR 200$ ; JUMP OVER TABLE 
: TABLE OF FUNCTION CODES 
100$: 
.WORD OFFSET 
“WORD RTC 
“WORD =1 ZEND OF TABLE 
200$: 
CIERRA EERE 
S*TEST 110 SET WLE TEST 
: ¥ ‘Att et ti eee e eee ee eeeeeeeeeesecececeCCCSOCS CSCS CS ce. s 2 
TST110: 
SCOPE :SCOPE CALL 
MOV ASTACK, SP ZLOAD THE STACK POINTER 
MOV S$BASE ,RO [RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :R1 = POINTER TO DEVICE 
MOV #110, $TESIN :;SET TEST NUMBER IN APT MAIL BOX 
bon MOV #100$,R2 yINITIALIZE TABLE POINTER 


JSR PC,SETVV :GO SET VOLUME VALID 


SEQ 0172 


am 


arn ty Oe oo 


T110 


037320 


037322 
4005 037324 
4006 


401 

rr dp 037336 

401 

4014 037342 

4015 037344 

re dy 037350 
7354 


4023 037402 
4024 


4025 
4026 037404 


050 037506 
4051 037510 


40 

4053 037512 
4054 037514 
4055 037516 


40 

4057 037520 
4058 037522 
4059 037524 





052703 
010360 


TST 1 


000004 
001136 
000014 
001174 
000002 


000006 
000002 
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: ENABLE 
20$: 


20$ ;BRANCH TO 20$ IF NO ERROR 
50$ 

DEBUG CLOCK AND SET WRITE PROTECT ACCORDING TO TABLE 
MOV 2(R2) ,R3 :GeT EET OIKER FROM TABLE 


BIS #DMD !MUR ' DBEN,R3- T OTHER MAINT BITS 
MOV R3,RMMR1 (RO) ;LOAD RMMR1 


BR 
EMT 
BR 


;LOAD ay 2 —"s THE COMMAND FROM THE T. 
(R2) ,R4 


30$: 


VERIFY 


:GET FUNCTION CODE FROM TABLE 
#G0,R4 :SET GO 
MOV R4 ,RMCS1 (RO) :LOAD RMCS1 


MOV #2,R5 ‘RSSCLOCK COUNT 
BIS #DBCK ,R3 zSET CLOCK 

MOV R3,RMMR1 (RO) st 

BIC ADBCK ,R3 RESET CLOCK 
eee ~ ata (RO) zLOAD RMMR1 

BNE 30$ ISSUE 2 CLOCKS 


THAT WRITE LOCK ERROR IS ACCORDING TO TABLE 
MOV RMER1 (RO) oe STORE RMER1 AT S$BDDAT 
BIC #°CWLE, SBDDA 


CMP 4(R2), sBpDAT. 


BEQ 40$ BRANCH IF WLE IS OK 

MOV 4(R2) ,SGDDAT SAVE DATA FOR ERROR MSG 
MOV RO, SBDADR 

ADD R1,$8DADR 


2 STMPO=FUNCTION CODE 


MOV (Re), -STMP1 :STMP1=WRITE PROTECT 


50$ 
jADVANCE TABLE POINTER TO NEXT FUNCTION CODE-EXIT IF DONE 
"ADD #6,R2 
TST 2(R2) 
BMI 50$ 
BR 10$ :REPEAT TEST 
BR 200 ; JUMP OVER TABLE 


50$: 


ions. OF FUNCTION CODES, WRITE PROTECT AND WRITE LOCK ERRORS 


-WORD WD WRITE DATA COMMAND 
«WORD MWP WRITE PROTECT ON 
«WORD WLE WRITE LOCK ERROR ONE 
-WORD WD WRITE -_ COMMAND 

- WORD :MWP OFF 

- WORD sWLE OFF 

WORD RD READ DATA COMMAND 
WORD MwWP ;MWP ON 


“WORD *WLE OFF 


SEQ 0173 


CZRMPAO ty A $e 


T110 SET WLE T 


4060 
4061 037526 
4062 037530 
4063 037532 
4064 
4065 037534 
4066 037536 
4067 
4068 037540 
4069 
4070 


037540 


4 
4084 037566 
4085 


4086 

4087 037572 
4088 037572 
4089 037576 
4090 037604 
4091 037612 
4092 037614 
4093 037620 


4096 037634 

4097 037634 
037640 
037642 

4098 037644 

4099 

4100 

4101 037646 

4102 037646 


rhs 037654 
4104 037662 





000020 
000010 
000000 


000000 
177777 


012737 


012702 


TST 1 
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001226 


000006 
000034 
000024 


SEQ 0174 
«WORD RIP ;READ IN PRESET COMMAND 
-WORD MwP 3 ON 
. WORD sWLE OFF 
. WORD END OF TABLE 
«WORD =1 
2008: END OF TEST 
AISI UIIISISISISIOIIISIDISIOIOISISIDIOIIIIISIIIIUISIOIUIIOISISIUIOIOIIIIIOIOIUINIDIUIUIIDIDIDIOIIDII IDI ot 
TRTEST 111 EXCEPTION TEST 
DIOS OS IOIISIIISIDIIOISIIIOISISIIISIOIIISIUIOIDIIOIOIOIOIOIDIDIUINIIIIUIDIOIIIIUIIIIOIIOUI I tt tok 
TST111: 
a ;SCOPE CALL 
MOV ASTACK, SP ;LOAD THE STACK POINTER 
MOV $BASE ,RO :RO = UNIBUS ADDRESS 


MOV TSTQUE ,R1 
MOV #111, $TESTN 


:R1_= POINTER TO DEVICE 
7;SET TEST NUMBER IN APT MAIL BOX 


;WITH OCCUPIED SET, EACH OF THE FOLLOWING ERRORS SHOULD CAUSE AN 
EXCEPT ION: 


MOV #100$,R2 INITIALIZE TABLE POINTER 


") ~ palaa AND VERIFY THAT EXCEPTION IS RESET 


20$: 


50$ 


JSR PC,CNTCLR :GO CLEAR CONTROLLER 

MOV RMMR1 (RO) ,SBDDAT STORE RMMR1 AT SBDDAT 
BIC #*CREX , $BDDAT 

BEQ 20$ :BRANCH IF EXCEPTION IS 0 

MOV RO, $BDADR 

ADD #RMMR1 , SBDADR 


CLR SGDDAT 

EMT 235 

JSR PC,SETVV :GO SET VOLUME VALID 

ioe 30$ :BRANCH TO 30$ IF NO ERROR 
BR 60$ 


;EXECUTE A WRITE DATA COMMAND TO SET OCCUPIED, RUN AND GO 


MOV #0,RMDA(RO) 
MOV #0 ,RMDC (RO) 


LOAD = oo 
;LOAD RMMR1 


LOAD RMD 
MOV #DMD !MUR ! DBEN, RR (RO) 


AO 
— ns 


AO 


—N 
~ 


BRARRAR FER = 
= ed ed od od od —_ 3 


3 


AO RMOS/3/2 DSKLS 
EXCEPTION TEST 


05 Oren 012760 
7676 012703 


S8 SR 
ooo 
Cie 
Se 
P= Pata 

row 


037720 


037722 
037726 
34 
037740 
0 


ONO UW FWHO 
oo°oo 


oO 

ooo 

SESE REREER 
NNN 
ERKKRSES 


1 
1 
1 
1 
1 
411 
1 
1 
1 
: 
20 


4148 





TST 1 


000061 
000002 


141001 
041001 


000014 
000200 
141572 
000024 
167777 
001530 
141544 
010000 


141510 
000002 
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000000 MOV #WD !GO,RMCS1(RO) ;LOAD RMCS1 
- MOV #2,R3 
000024 "MOV #DMD!MUR'DBEN!DBCK,RMMR1(RO) LOAD RMMR1 
000924 MOV #DMD iMUR'!DBEN,RMMR1(RO) ;LOAD RMMR1 
BNE 40$ yISSUE 2 CLOCKS 
;LOAD ERROR REGISTER WITH ENTRY FROM TABLE AND VERIFY THAT EXCEPTION IS SET 
MOV (R2) -RMER' (RO) ;LOAD RMER1 
001530 MOV #200.WATCH :SET WATCHDOG TIMER VALUE 
ie JSR PC. acLock ‘START THE CLOCK 
001142 ‘ RMMR1 (RO) , SBDDAT ;STORE RMMR1 AT $BDDAT 
001142 BIC #*CREX, SBDDAT 
BNE 50$ 
TST WATCH zHAS CLOCK EXPIRED ?? 
BNE 45$ [NO - TAKE ANOTHER SAMPLE 
JSR PC,aSTOP ‘STOP THE CLOCK 
001140 MOV AREX, SGDDAT 
MOV RO, R 
001136 ADD #RMMR1 , SBDADR 
MOV (R2) , $TMPO 
EMT 236 
BR 60$ 
j ADVANCE TABLE POINTER-EXIT IF DONE 
" «JSR PC, aSTOP :STOP THE CLOCK 
ADD #2.R2 
TST (R2) 
BEQ 60$ 
BR 10$ 
60$: BR 200$ ; JUMP OVER TABLE 
;PRESENTLY, THE TABLE HAS ONLY ONE ENTRY, THE TEST USING RMR. THE 
; TABLE SHOULD BE EXPANDED TO TEST ALL THE CONDITIONS LISTED ABOVE IF 
WARE CHANGE IS MADE SUCH THAT IT IS POSSIBLE TO WRITE ERROR 
‘REGISTER 1 WITH GO SET. 
.WORD RMR ;RMR IS CAUSED BY HARDWARE 
WORD ZEND OF TABLE 
2008: SEND OF TEST 
SIERRA EEE 
S*TEST 112 RECALIBRATE TEST 
SIAR ARERR REE REE 
TS1112: 
SCOPE :SCOPE CALL 
MOV #STACK, SP ;LOAD THE STACK POINTER 
MOV SBASE ,RO [RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 RI = POINTER TO DEVICE 
001226 MOV #112, $TESTN >;SET TEST NUMBER IN APT MAIL BOX 





SEQ 0175 








3 


040100 
41 29 040102 


56 122 
4157 040130 
4158 
4159 
4160 040136 
4161 040142 

040142 
4162 040150 
4163 040156 
4164 040160 
4165 
4166 
4167 040162 
4168 040170 
4169 040174 

040174 
4170 040202 
4171 040210 
4172 040212 
4173 


4174 
4175 040214 


roy 040252 

4183 040254 

4184 

4186 040262 

4187 040262 
040266 
040270 

4188 040272 

4189 

4190 

4191 040276 

4192 040276 

4193 040304 


4194 040312 
4195 040320 
4196 


4197 
4198 040326 
4199 040332 


012760 


AO RMOS/3/2 DSKLS TST 1 
2 RECALIBRATE TEST 


4149 040072 
040076 


055370 


041400 


140001 
040001 


000014 
157777 
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000024 
000024 


000024 
000024 
000024 


001142 
001142 


001140 
001136 


001124 


000024 


000000 


— 


JSR PC,SETVV :GO SET VOLUME VALID 
BR 10$ [BRANCH TO 10$ IF NO ERROR 


EMT 
JMP 330$ 
DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 


MOV ADMD !MUR! DBEN,.RMMR1(RO) ;LOAD RMMR1 
MOV #0 ,RMER1 (RO) LOAD RMER1 


R2(RO) LOAD RMER2 
MOV #RECAL !GO,RMCS1 (RO) LOAD RMCS1 


STEP COMMAND SEQUENCER TO RECAL COM (2 CLOCKS) 
20$ MOV #2,R2 


MOV ADMD ! MUR ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 
MOV sata teen (RO) ;LOAD RMMR1 


BNE 20$ 


DROP UNIT READY AND STEP COMMAND SEQUENCER (2 CLOCKS) 
MOV ADMD! RMMR 1 


30$: 


VERIFY 


4 


OS: 


; VERIFY 


50$ 


ENABLE 
60$: 


DBEN ,RMMR1 (RO) ; LOAD 
MOV #2,R2 


MOV ADMD ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR' 
MOV Spain tine (RO) ;LOAD RMMR1 


DEC R 

BNE 30$ 

THAT OPI IS SET 

MOV RMER1 (RO) , SBDDAT STORE RMER1 AT SBDDAT 
BIC #*COPI ,$BDDAT 

BNE 40$ 


MOV #OPI ,$GDDAT 


MOV #50$,$LPERR : CHANGE LOOP ON ERROR ADDRESS 
THAT RECALIBRATE ABORTS DURING EXECUTION 


JSR PC,SETVV :GO SET VOLUME VALID 

iy 60$ :BRANCH TO 60$ IF NO ERROR 
JMP 330$ 

DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 

MOV #DMD!MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 

MOV #0 ,RMER1 (RO) ;LOAD RMER1 


MOV #0 ,RMER2 (RO) LOAD RMER2 
MOV #RECAL !GO,RMCS1 (RO) LOAD RMCS1 


STEP THE COMMAND SEQUENCER TO FIRST TEST FOR ABORT (3 CLOCKS) 
MOV #3,R2 


7 


O$: 


SEQ 0176 


amo 
—_ims 





CZRMPAQ RMO5S/3/2 DSKLS TST 1 
T112 RECALIBRATE TEST 


4200 040332 012760 141001 

re 040340 012760 041001 
005302 

2508 040350 001370 

2506 040352 012760 041101 

4207 

4208 

4209 040360 012702 000002 

4210 040364 

0407; 
4211 040572 012760 041101 
4212 0404 005 


26 
2519 040432 
4220 
4221 040434 012737 040442 
4222 


4223 

4224 040442 

4225 040442 004737 055370 
040446 


040450 000 
4226 040452 000137 041400 
4227 
4230 040456 012760 041001 
31 000000 


000000 
4233 040500 012760 000007 
4234 


0506 012702 000017 


4238 040512 012760 141001 
4239 520 precee 041001 


000014 
4245 040540 042737 157777 


4246 

4247 040550 010037 001136 
4248 040554 062737 000014 
4249 040562 012737 020000 
4250 040570 104243 


4252 040572 012737 040600 
4253 
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SEQ 0177 


000024 MOV #DMD!MUR'DBEN!DBCK,RMMR1(RO) LOAD _ RMMR1 
000024 MoV #DMD !MUR!DBEN, ;RMMRI(RO) :LOAD RMMR1 
BNE 70$ 
SET DRIVE FAULT TO CAUSE ABORT CONDITION . 
000024 ADMD 'MUR ! DBEN! MDF , RMMR1 (RO) :LOAD RMMR1 
:STEP 2 CLOCKS AND VERIFY GO IS RESET 
a MOV #2,R2 
024 "Mov #DMD !MUR ! DBEN! MDF ! DBCK,RMMR1 (RO) ;LOAD RMMR1 
000024 MOV #OMD MUR! DBEN MDF , RAP (RO) ;LOAD RMMR1 
BNE 80S 
901142 MOV RMCS1(RO), SBDDAT :STORE RMCS1 AT $8DDAT 


BIC #*CGO, SBDDAT 
90$ 
MOV RO, $BDADR 
CLR $GDDAT 
242 


001124 90$: MOV #7 00$,$LPERR 


; CHANGE LOOP ON ERROR ADDRESS 


4 pai OPI SETS IF ON CYLINDER LATCH DOESNT CLEAR 


:GO SET VOLUME VALID 


JSR PC, SETVV 
BR 110$ ‘BRANCH TO 110$ IF NO ERROR 
JMP 330$ 
ENA E DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 
000024 "MOV #DMD'MUR!DBEN,RMMR1(RO) :LOAD RMMR1 
000014 MOV #0,RMER1(RO)  ;:LOAD RMER1 
600042 MOV #O.RMER2(RO) :LOAD RMER2 


MOV W#RECAL !GO,RMCS1(RO) 


STEP THE COMMAND SEQUENCER 
MOV #15. ,R2 


120$: 
000024 MOV #DMD ! MUR ! DBEN! DBCK , RMMR1 (RO) 
000024 “94 ‘ ath acmamttaatatat (RO) ;LOAD 
BNE 120$ 
VERIFY THAT OPI IS SET 
001142 MOV RMER1(RO), 1 ed 
001142 BIC #*COPI ,SBDDAT 
BNE 130$ 
MOV RO, $8DADR 
001136 ADD #RMER1 , SBDADR 
001140 MOV #OPI , $GDDAT 
EMT 243 
001124 130$: MOV #150$,$LPERR 





LOAD RMCS1 


:LOAD RMMR1 
RMMR 1 


STORE RMER1 AT S$BDDAT 


: CHANGE LOOP ON ERROR ADDRESS 


T112 


4254 

4255 040600 

4256 040600 
040604 


040606 
4257 040610 
4258 


4269 040656 
4270 040664 
4271 040666 
4272 


4273 
4274 040670 
osi2 040676 





062 
104244 


CZRMPAO RMO5/3/2 DSKLS TST 1 
RECALIBRATE TEST 


055370 


041400 


041401 
000000 
000000 
000007 
000015 


141401 
041401 


041001 
041401 
000003 


141401 
041401 


000012 
077777 


100000 
001136 
000012 


040776 


055370 
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000024 
000014 
000042 


iyget’’ ATA SETS IF DRIVE COMPLETES RECALIBRATE (ON CYLINDER SETS) 


150 
JSR PC,SETVV :GO SET VOLUME VALID 
BR 160$ [BRANCH TO 160$ IF NO ERROR 


EMT 
JMP 330$ 
itnee DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 


160 
MOV ADMD ! MUR! DBEN! MOC ,RMMR1 (RO) ;LOAD RMMR1 
MOV #0 ,RMER1 (RO) ;LOAD RMER1 
MOV #0,,RMER2 (RO) LOAD RMER2 
MOV #RECAL !GO,RMCS1 (RO) LOAD RMCS1 


;STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS) 
vt MOV #13.,R 
"mov #DMD ! MUR! DBEN! DBCK !MOC ,RMMR1 (RO) ;LOAD RMMR1 
MOV DMD i MUR DBEN! MOC , RMR (RO) ;LOAD RMMR1 
BNE 170$ 
:DROP ON CYLINDER TO RESET LATCH, THEN SET ON CYLINDER 
MOV #DMD !MUR'DBEN,RMMR1(RO) :LOAD RMMR1 
MOV #DMD ‘MUR | DBEN' MOC. RMMR1 (RO) ;LOAD RMMR1 
:STEP COMMAND SEQUENCER TO SET ATTENTION (3 CLOCKS) 
sit MOV #3,R2 
“MOV #DMD ! MUR ! DBEN! MOC ! DBCK ,RMMR1 (RO) :LOAD RMMR1 
MOV #DMD MUR DBEN MOC , RHR (RO) ;LOAD RMMRT 
BNE 180$ 
:VERIFY ATA IS SET 
RMDS(RO), SBDDAT ;STORE RMDS AT $B8DDAT 
BIC #°CATA, SBDD 
190$ 
MOV #ATA-SGDDAT 


MOV RO, SBDA 
ADD ee . SBDADR 


190$: MOV #200$ ,SLPERR : CHANGE LOOP ON ERROR ADDRESS 

ayeeiry THAT RECALIBRATE ABORTS AFTER EXECUTION DURING WAIT LOOP 
stag” SSSEL Sst o canon 
BR 330$ 

a DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 


MOV #DMD ! MUR ! DBEN! MOC ,RMMR1 a 
MOV #0 ,RMER1 (RO) ;LOAD RMER1 
MOV #0; RMER2 (RO) LOAD RMER2 


LOAD RMMR1 


| 








RMP. 
4306 041032 
4307 
4308 
4309 041040 
4310 041044 
4311 041044 
4312 041052 
4313 041060 
4314 041062 
4315 
4316 
4317 041064 
4318 
4319 
4320 041072 
4321 041076 
4322 041076 
4323 041104 
4324 041112 
4325 041114 
4326 
4327 
4328 041116 
4329 041124 
4330 041132 
4331 041134 
4332 041142 
4333 041146 
4334 
4335 
4336 041150 
041150 
4337 
4338 
4339 041156 
4340 041162 
041162 
4341 041170 
4342 041176 
4343 041200 
4344 041202 
4345 041210 
4346 041216 
347 041220 
4348 041224 
rir 041230 
4351 041232 


246 
4356 041250 
4357 
4358 


012760 


012702 


012760 


012702 


AO RMO5/3/2 DSKLS TST 1 
2 RECALIBRATE TEST 


000007 
000015 
141401 
041401 


041001 


000007 
141001 
041001 


000000 
177776 


000007 
001136 


041201 
000003 


141201 
041201 


000000 
177776 
001136 
001140 
041240 


055370 
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000000 


000024 
000024 


000024 


000024 
000024 


001142 
001142 


001140 


000024 


000024 
000024 


001142 
001142 


001124 


MOV #RECAL ! GO,RMCS1 (RO) 


LOAD RMCS1 


;STEP —— SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS) 


2208: 
MOV #DMD ' MUR! DBEN!MOC ! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
44 fp lpientacisearachyss, SRMMR1 (RO) ;LOAD RMMR1 
BNE 220$ 
;DROP ON CYLINDER TO RESET LATCH, LEAVE ON CYLINDER 0 
MOV ADMD 'MUR ! DBEN, RMMR 1 (RO) ;LOAD RMMR1 
:STEP COMMAND SEQUENCER THROUGH WAIT LOOP (7 CLOCKS) 
aa08: MOV #7,R2 
MOV #DMD ! MUR ! DBEN! DBCK ,,RMMR1 (RO) ;LOAD RMMR1 


2 
230$ 
VERIFY THAT GO IS STILL SET 
RMCS1(RO) , SBDDAT 
#*CGO,$BDDAT 


MOV #GO,$GDDAT 
MOV RO, $BDADR 
EMT 245 


:SET SEEK INCOMPLETE ERROR 
2408: 


MOV ADMD ! MUR ! DBEN! MSER ,RMMR1 (RO) 


eset pec tahree (RO) 


LOAD RMMR1 


STORE RMCS1 AT $BDDAT 


LOAD RMMR1 


7 STEP —— oa AND VERIFY GO RESETS (3 CLOCKS) 


250$: 


MOV #DMD ! MUR ! DBEN!MSER ! DBCK ,RMMR1 (RO) 
MOV ~ oda titatinctetale (RO) LOAD RMMR1 


DEC 
BNE 250$ 
MOV RMCS1 (RO) , SBDDAT 
BIC #°CGO, SBDDAT 
BEG 
MOV RO, SBDADR 
CLR $GDDAT 
EMT 246 
260$: MOV #300$ ,$LPERR 
VERIFY THE TAG BUS DURING RECALIBRATE 
lh PC, SETVV 
BR 310$ 
EMT 
BR 330$ 


;LOAD RMMR1 


STORE RMCS1 AT $BDDAT 


: CHANGE LOOP ON ERROR ADDRESS 


:GO SET VOLUME VALID 
:BRANCH TO 310$ IF NO ERROR 


sENABLE DEBUG CLOCK AND LOAD RECALIBRATE COMMAND 


SEQ 0179 


am 


AQ RMOS/3/2 DSKLS TST 1 
RECALIBRATE TEST 


nrmnr 
NESS 
oo 
+ 
aS 
38 


302 
306 
306 

314 04 
322 
326 
330 
334 

34 


006100 
4403 041432 001777 
4404 
4405 041434 177777 





L 14 
MACRO V0O3.01 11-APR=80 13:58:55 PAGE 12-91 


ADMD ! MUR! DBEN! MOC ,RMMR1 a LOAD RMMR1 
;LOAD RMER1 


:LOAD RMER2 
0) ;LOAD RMCS1 
;INITIALIZE TABLE POINTER 


STORE RMMR2 AT $BDDAT 


EXIT IF ENTRY NEGATIVE 


STEP THE COMMAND SEQUENCER AND REPEAT VERIFICATION 
MOV #DMD ! DBEN! MUR ! MOV ' DBCK , RMMR1 (RO) ;LOAD RMMR1 
1 etme ne imitate (RO) LOAD RMMR1 


: JUMP OVER TABLE 


BUS BITS AT HIGH IMPEDANCE STATE 
CONTROL BITS ENABLED, BIT 6 ON 
TAG COMES ON 


TAG GOES OFF 
:CONTROL BITS DISABLED 
END OF TABLE 
sEND OF TEST 


FREER ARERR EREE 


s SOSeeeasecseaaasssasoeseseoesgasasensesaqaesssoasossooooesenaee 


310$: 
MOV 
MOV #0,RMER1 (RO) 
MOV #0. RMER2(RO) 
MOV #RECAL 'GO,RMCS1(R 
MOV #400$,R2 
VERIFY TAG BUS ACCORDING TO TABLE 
"MOV RMMR2(RO) , $BDDAT 
BIC #ROA!ROB TST, $BDDA 
CMP (R2) $B 
BEQ 320$° 
MOV (R2) , SGDDAT 
MOV ADR 
ADD 2,$BDADR 
EMT 4 
BR 330$ 
gADVANCE TO NEXT ENTRY IN TABLE-EXIT IF DONE 
"ADD #2,R2 
TST (R2) 
BMI $353 
MOV 
BR 
330$: BR 500$ 
i TABLE OF TAG BUS CONTROL AND BIT VALUES 
“WORD 1777 
“WORD 1777 
“WORD CC!CH!BBO6 
“WORD CC! CH'BBO6 
"WORD TAG!CC!CH!BBO6 
“WORD TAG!CC!CH'BBO6 
“WORD  TAG!CC!CH'BBO6 
“WORD TAG!CC'CH'BBO6 
“WORD TAG!CC'CH'BBO6 
“WORD  TAG!CC'CH'BBO6 
“WORD 'CH! 
“WORD CC! CH'BBO6 
"WORD 1777 
.WORD =1 
500$: 
tSTEST 113 SEEK TEST 
+1113: 
SCOPE 





SCOPE CALL 





SEEK T 


ee 


Monn 
Ww WS O0Nane 


4424 


REERE 
™ 


CZRMPAO woe ae DSKLS 
7113 


062 
104250 


141001 
041001 


040001 
000002 


140001 
040001 


000014 
157777 


020000 
001136 
000014 


041670 


055370 


043114 
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001226 


000024 
000024 


000024 


000024 
000024 


001142 
001142 


001140 
001136 


001124 


NOP 
MOV 


ASTACK, SP ;LOAD THE STACK POINTER 
MOV S$BASE ,RO :RO = UNIBUS ADDRESS 
MOV TSTQUE,R1 :R1 = POINTER TO DEVICE 
MOV #113, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
;VERIFY THAT OPI SETS IF UNIT READY DROPS DURING COMMAND EXECUTION 
JSR PC, SETVV 7GO SET VOLUME VALID 
BR 10$ ;BRANCH TO 10$ IF NO ERROR 
JMP 330$ 
;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
ADDRESS, AND LOAD SEEK COMMAND 
“mov ADMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
MOV #0, RMDA(RO) ZLOAD RMDA 
MOV #0, RMDC (RO) ‘LOAD RMDC 
MOV #0,RMER1(RO)  §:LOAD RMER1 
MOV #0 .RMER2 (RO) : RMER2 
MOV #SEEK!GO,RMCS1(RO) SLOAD RMCS1 


STEP COMMAND SEQUENCER TO SEEK COM (2 CLOCKS) 
208 MOV #2,R2 


MOV ADMD ! MUR ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 
MOV #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 

DEC R2 

BNE 20$ 


DROP UNIT READY AND STEP COMMAND SEQUENCER (2 CLOCKS) 
MOV RMMR1 


30$: 


: VERIFY 


4 


OS: 


; VERIFY 


50$ 


#DMD ! DBEN, RMMR1 (RO) 3 LOAD 
MOV #2,R2 


MOV ADMD ! DBEN! DBCK ,RMMR1 (RO) ZLOAD RMMR1 
MOV #DMD | DBEN. RMMRi1 (RO) ZLOAD RMMR1 

DEC R2 

BNE 30S 

THAT OPI IS SET 

MOV RMER1(RO), + ted STORE RMER1 AT S$BDDAT 
BIC #*COPI,$BDDA 

BNE 40$ 

MOV #OPI, SGDDAT 

MOV RO, SBDAD 

ADD #RMER1, SEDADR 

EMT 0 

MOV #50$,$LPERR ; CHANGE LOOP ON ERROR ADDRESS 
THAT SEEK ABORTS DURING EXECUTION 

JSR PC,SETVV G0 SET VOLUME Vv VALID 

BR 60$ [BRANCH TO 60$ IF NO ERROR 
JMP 330$ 


SEQ 0181 





45 
4509 042144 


012702 
012760 
012760 


012702 


TST 1 


041101 
000002 


141101 
041101 


000000 
177776 
001136 
001140 
042064 


055370 


043114 
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000024 


001124 


000024 
000006 


sENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
inns AND LOAD SEEK COMMAND 


MOV #DMD 'MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
MOV #0,RMDA(RO) :LOAD RMDA 

MOV #0.RMDC (RO) ‘LOAD RMDC 

SLOAD RMER1 

MOV #O.RMER2(RO) = LOAD RMER2 

MOV #SEEK!GO,RMCS1(RO) ;LOAD RMCS1 


STEP THE COMMAND SEQUENCER TO FIRST TEST FOR ABORT (3 CLOCKS) 
70$ MOV #3,R2 
7 MOV #DMD ! MUR ! DBEN! DBCK , RMMR1 (RO) 
MOV ADMD !MUR!DBEN,RMMR1(RO) ;LOAD 
DEC R2 
BNE 70$ 
SET DRIVE FAULT TO CAUSE ABORT CONDITION 
MOV #DMD !MUR ! DBEN! MDF ,RMMR1 (RO) 


zSTEP 2 CLOCKS AND VERIFY GO IS RESET 
MOV #2,R2 


;LOAD RMMR1 
RMMR1 


;LOAD RMMR1 


80$: 
MOV ADMD 'MUR ' DBEN! MDF 'DBCK,RMMR1 (RO) ;LOAD RMMR1 
we 5 Sshteatiemettetcatl ita (RO) ;LOAD RMMR1 
BNE 80$ : 
MOV RMCS1(RO), ped STORE RMCS1 AT S$BDDAT 
BIC #°CGO,$BDDA 
BEQ 
MOV RO, $BDAD 
CLR SGDDAT 
EMT 251 

90$: MOV #100$,$LPERR ; CHANGE LOOP ON ERROR ADDRESS 


VERIFY OPI SETS IF ON CYLINDER LATCH DOESNT CLEAR 
"SR PC,SETVV :GO SET VOLUME VALID 


BR 110$ :BRANCH TO 110$ IF NO ERROR 
JMP 330$ 


ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
ADDRESS, AND LOAD SEEK COMMAND 


MOV ry re nate mee (RO) gL Gre RMAR 1 


MOV #0 ,RMDA(R RMD 
MOV eRMDC (RO RMDC 
MOV #0 ,RMER1 (RO) LOAD RMER1 
MOV 2RMER ;LOAD RMER 


2(RO) 2 
MOV #SEEK'GO,RMCS1(RO) ;LOAD RMCS1 


STEP THE COMMAND SEQUENCER 
MOV #15.,R2 


am 


8 15 
RMPAQ wee ee, DSKLS TST 1 MACRO V03.01 11-APR-80 13:58:55 PAGE 12-94 : 
04 


13 Ek SEQ 0183 
4510 042150 120$: 
4511 042150 012760 141001 000024 MOV #DMD ! MUR ! DBEN ! DBCK RAPIR (RO) ;LOAD RMMR1 
4512 042156 012760 041001 000024 MOV #DMD MUR DBEN,RMMRI(RO) ;LOAD RMMR1 
4513 042164 005302 DEC 
4314 042166 001370 BNE ‘50s 
4516 ;VERIFY THAT OPI IS SET 
4517 042170 016037 001142 MOV RMER1 (RO), SBDDAT :STORE RMER1 AT $8DDAT 
4518 042176 042737 157777 001142 BIC #°COPI, $BDDAT 
4519 042204 001011 BNE 130$ 
4520 042206 010037 001136 MOV RO, $BDADR 
4521 042212 062737 4 001136 ADD #RMER1 , SBDADR 
22 042220 012737 020000 001140 MOV #OPI,$GDDAT 
4925 042226 104252 EMT 252 


rit 042230 012737 042236 001124 130$: MOV #150$,,$LPERR CHANGE LOOP ON ERROR ADDRESS 


4527 VERIFY ATA SETS IF DRIVE COMPLETES SEEK (ON CYLINDER SETS) 
4528 042236 150$: 


4529 042236 004737 055370 JSR PC, SETVV :GO SET VOLUME VALID 
042242 000403 BR 160$ sBRANCH TO 160$ IF NO ERROR 
042244 104000 EMT 

4530 042246 000137 043114 JMP 330$ 

4532 ;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 

4533 “ADDRESS, AND LOAD SEEK COMMAND 

4534 042.52 160$: 

4535 042252 012760 041401 000024 MOV ADMD !MUR ! DBEN! MOC ,RMMR1 1<RO) ZLOAD RMMR1 

4536 042260 012760 000000 000006 MOV #0,RMDA(RO) :LOAD RMD, 

4537 042266 012760 000000 000034 MOV #0. RMDC (RO) [LOAD RDC 

4538 042274 012760 000000 000014 MOV #0,RMER1(RO) LOAD RMER1 

4539 042302 012760 000000 000042 MOV #0, RMER2 (RO) “LOAD RMER2 

4940 042310 012760 000005 000000 MOV #SEEK!GO,RMCS1(RO) ;LOAD RMCS1 

4542 7STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS) 

4543 042316 012702 000015 MOV #13.,R2 

4544 042322 170$: 

042322 012760 141401 000024 MOV #DMD !MUR ' DBEN! DBCK ! MOC, RMMR1 (RO) ;LOAD RMMR1 
4545 042330 012760 041401 000024 MOV #DMD 'MUR ' DBEN' MOC ,RMMR (RO) ;LOAD RMMR1 
4546 042336 005302 DEC R2 
4947 042340 001370 BNE 170$ 

;DROP ON CYLINDER TO RESET LATCH, THEN SET ON CYLINDER 

4550 042342 012760 041001 000024 MOV #DMD !MUR 'DBEN,RMMR1(RO) ;LOAD 1 

491 042350 012760 041401 000024 MOV ADMD ‘MUR | DBEN! MOC , RMMR1 (RO) ZLOAD RMMR1 


4553 :STEP COMMAND SEQUENCER TO SET ATTENTION (3 CLOCKS) 
4554 042356 012702 000003 #3,R2 


4555 042362 180$: 

4556 042362 012760 141401 000024 MOV #DMD ! MUR ! DBEN! MOC ! DBCK , RMMR1 (RO) ;LOAD RMMR1 
4557 042370 012760 041401 000024 MOV #DMD ! MUR ! DBEN! MOC , RMMR1 (RO) LOAD RMMR1 

4558 042376 005302 DEC R2 

4559 042400 001370 BNE 180$ 


4561 VERIFY ATA IS SET 
4562 042402 016037 000012 001142 MOV RMDS(RO),$BDDAT ;STORE RMDS AT $BDDAT 
4563 042410 042737 077777 001142 BIC #*CATA, SBDDAT 





am 


ris 





4564 042416 


4569 
4570 042442 
4571 
4572 
4573 042450 
4574 042450 
042454 
042456 
4575 042460 
4576 
4577 
4578 
4579 042464 
4580 042464 
4581 042472 
4582 042500 


4583 peseve 
4584 042514 
4585 042522 

4586 


4593 042552 
9% 


95 
4596 042554 
97 


RMPAQ RMOS/3/2 DSKLS 
SEEK TEST 


012760 


012702 


012760 


000005 
000015 


141401 
041401 


041201 
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001140 
001136 


001124 


000024 


000024 
000024 


001142 
001142 


001140 


000024 


190$ 
MOV #ATA,$GDDAT 
MOV RO, $BDADR 

ADD or . SBDADR 


190$: MOV #200$ , SLPERR ; CHANGE LOOP ON ERROR ADDRESS 
ayeeify THAT SEEK ABORTS AFTER EXECUTION DURING WAIT LOOP 


JSR PC,SETVV :GO SET VOLUME VALID 
BR 2108 [BRANCH TO 210$ IF NO ERROR 


EMT 
JMP 330$ 
ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
OMMAND 


ZADDRESS AND LOAD SEEK C 
ADMD !MUR ! DBEN! MOC ,RMMR1 (RO) ZLOAD RMMR1 
MOV #0, RMDA(RO) ;LOAD RMDA 
MOV #0. RMDC (RO) [LOAD RMDC 
MOV #0,RMER1(RO) LOAD RMER1 
MOV #0,.RMER2(RO) “LOAD RMER2 
MOV #SEEK : GO, RMCS1 (RO) ;LOAD RMCS1 


STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (13 CLOCKS) 
2208: Pe 


MOV #DMD ! MUR ! DBEN! MOC ! DBCK , RMMR1 (RO) ;LOAD RMMR1 
w44 -* Susbeteete ene tine ccnhc (RO) LOAD RMMR1 
BNE 2208 

:DROP ON CYLINDER TO RESET LATCH, LEAVE y Bais aa 0 
MOV #DMD!MUR!DBEN,RMMRT(RO) ;LOAD RMMR1 

STEP —— or ee THROUGH WAIT LOOP (7 CLOCKS) 

2308: 
MOV #DMD ! MUR ! DBEN ! DBCK , RMAR1 (RO) ;LOAD RMMR1 
ae  hetiaenicernetinttdnl (RO) ;LOAD RMMR1 
BNE 230$ 

VERIFY THAT GO IS STILL SET 
MOV RMCS1(RO) , SBDDAT STORE RMCS1 AT SBDDAT 


BIC #*CGO, $BDDAT 
BNE 240$ 
MOV #GO,$GDDAT 
MOV RO, $BDADR 

254 
a INCOMPLETE ERROR 

"MOV #DMD ! MUR ! DBEN! MSER ,,RMMR1 (RO) LOAD RMMR1 

:STEP COMMAND SEQUENCER AND VERIFY GO RESETS (3 CLOCKS) 


SEQ 0184 


“om 


4667 

4668 043076 
4669 043104 
4670 043112 


AO RMO5/3/2 DSKLS 
SEEK TEST 


012702 


12737 
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001124 


000024 
000024 


SEQ 0185 
as MOV #3,R2 
"MOV #DMD ! MUR! DBEN!MSER ! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
mov #OMD! iMUR | DBEN'MSER .RMMARI (RO) ZLOAD RMMR1 
BNE 250$ 
MOV RMCS1(RO), $BDDAT ;STORE RMCS1 AT $BDDAT 
BIC #°CGO, SBDDAT 
MOV RO, $BDADR 
CLR $GDDAT 
EMT 
260$: MOV #300$,$LPERR  ;:CHANGE LOOP ON ERROR ADDRESS 
MOV #1,R3 “INITIALIZE CYLINDER ADDRESS 
gVERIFY THE TAG BUS DURING SEEK 
> JSR PC, SETVV 3GO SET VOLUME VALID 
BR 310$ ‘BRANCH TO 310$ IF NO ERROR 
BR 330$ ‘ 
;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
ZADDRESS AND LOAD SEEK COMMAND 
‘ ADMD !MUR ! DBEN! MOC, RMMR1 (RO) ZLOAD RMMR1 
MOV #0,RMDA(RO) :LOAD RMDA 
MOV R3,.RMDC (RO) : 
MOV #0.RMER1(RO) § :LOAD RMER1 
MOV #0.RMER2(RO LOAD RMER? 
MOV #SEEK!GO,RMCS1 (RO) OAD RMCS1 
MOV #400$,R2 INITIALIZE TABLE POINTER 
gVERIFY TAG BUS ACCORDING TO TABLE AND CYLINDER IN R3 
"MOV RMMR2 (RO), SBDDAT :STORE RMMR2 AT SBDDAT 
BIC #ROA'ROB: FST, SBDDAT 
MOV (R2) , $GDD. 
BIS R3,$GDDA ki CYLINDER ADDRESS IN 
CMP SGDDAT , SBDDAT < COMPARE EXPECTED AND RECEIVED 
BEQ 320$ “BRANCH IF TAG BUS OK 
MOV RO, $BDADR 
ADD ARMMR2 , SBDADR 
EMT 256 
BR 330s 
gADVANCE TO NEXT ENTRY IN TABLE-EXIT IF DONE 
"ADD #2,R2 
TST (R2) 
BMI $355 ZEXIT IF ENTRY NEGATIVE 


STEP THE ame aE eaen tg AND REPEAT VERIFICATION 
#DMD ! DBEN! MUR ! MOV! DBCK , RMMR1 (RO) : 
v #DMD ! DBEN! MUR! MOC , ;RMMR I (RO) LOAD RMMR1 





“aoa | 


she a igh LE DSKLS TST 1 


004 
001777 
177777 
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SEQ 0186 


age TAG BUS TEST FOR EACH PRIME CYLINDER, I.€., 1.2.4, 


;SHIFT TO NEXT CYLINDER 


sEXIT IF WAS DONE 

:TEST NEXT CYLINDER 

| [JUMP OVER TABLE 

japee OF TAG BUS CONTROL AND BIT VALUES 

;BUS BITS AT HIGH IMPEDANCE STATE 
;CONTROL BITS ENABLED, BIT 6 ON 


;TAG COMES ON 


:TAG GOES OFF 
CONTROL BITS DISABLED 
END OF TABLE 
END OF TEST 


FFARR EERE REET RERERKEEKEEEEEEEKEEEKEEEKEREEERKEREREKKEKE 


OTT gaan egal pepe nein’ BASSAS ASAARESSASASASELES ESAS A SS ES Sf 


SCOPE CALL 


;LOAD THE STACK POINTER 
;RO = UNIBUS ADDRESS 
;R1_ = POINTER TO DEVICE 


SET TEST NUMBER IN APT MAIL BOX 
THAT OPI SETS IF UNIT READY DROPS DURING COMMAND EXECUTION 


:GO SET VOLUME VALID 
:BRANCH TO 10$ IF NO ERROR 


sENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
: . SEARCH COMMAND 


ye ae wie toy ® ;LOAD RMMR1 


-RMER2 (RO) ;LOAD 2 
M#SEARCH! GO,RMCS1 (RO) LOAD RMCS1 


am 


4716 

4717 

4718 043272 

4719 043276 
276 


30 
4728 043336 
4729 043344 
4730 043346 
4731 
4732 
4733 043350 
4734 043356 
4735 043364 
4736 043366 
4737 043374 
4738 043400 
4739 043406 
4740 
4741 043410 
4742 
4743 


4744 043416 
4745 043416 
043422 


043424 
ry 043426 


3446 
4754 043454 
4755 043462 
4756 043470 
4757 


4758 
4759 043476 


4764 043520 
4765 


4766 
4767 043522 
4768 





CZRMPAOQ weeaens Ye ee 
T114 SEARCH 


012702 


2760 


012760 


TST 1 


000002 


141001 
041001 


040001 
000002 


140001 
040001 


000014 
157777 
020000 
001136 
000014 
043416 


055370 


045260 


041101 
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000924 
000024 
000024 
000024 
000024 


001142 
001142 


001140 
C01136 


001124 


000024 
000006 


000024 


SEQ 01€7 


STEP COMMAND SEQUENCER TO SEARCH COM (2 CLOCKS) 
MOV #2,R2 


20$: 
MOV DMD ' MUR ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
MOV ADMD! MUR! DBEN,RMMK1(RO) ;LOAD RMMR1 
DEC R2 
BNE 20$ 
;DROP UNIT READY AND STEP aa ps SEQUENCER (2 CLOCKS) 
MOV #DMD 'DBEN, (RO) ;LOAD RMMR1 
508 MOV #2,R2 
MOV ADMD ' DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
MOV #DMD ! DBEN, RMMR1 (RO) ;LOAD RMMR1 
DEC R2 
BNE 30$ 
;VERIFY THAT OPI IS SET 
MOV RMER1 (RO) , S$BDDAT ;STORE RMER1 AT $BDDAT 
BIC #*COPI, $BDDAT 
BNE 40$ 


MOV #OPI, — 
RO, SBDAD 

#RMER1 , SEDADR 

257 


40$: MOV #50$,$LPERR CHANGE LOOP ON ERROR ADDRESS 
—" THAT SEARCH ABORTS DURING EXECUTION 


JSR PC,SETVV :GO SET VOLUME VALID 
BR 60$ :BRANCH TO 60$ IF NO ERROR 


EMT 
JMP 330$ 


ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
ra AND LOAD SEARCH COMMAND 


MOV #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
LOAD RMDA 


MOV #0 ,RMDA(RO) ; 

MOV #0 ,RMDC (RO) L RMDC 
MOV #0 ,RMER1 (RO) LOAD RMER1 
MOV #0,,RMER2 (RO) ;LOAD 


2 OAD RMER2 
MOV ASEARCH!GO,RMCS1(RO) — ; LOAD RMCS1 
;STEP THE COMMAND SEQUENCER TO FIRST TEST FOR ABORT (3 CLOCKS) 
a MOV #3,R2 
“MOV ADMD 'MUR'DBEN!DBCK,RMMR1(RO) ——: LOAD _RMMR1 
MOV #DMD MUR DBEN, -RMMRI (RO) LOAD RMMR 
BNE 70$ 


SET DRIVE FAULT TO CAUSE ABORT CONDITION 
MOV #DMD ! MUR! DBEN! MDF ,RMMR1 (RO) LOAD RMMR1 


40 


CZRMPAO naydakg & - 
T1114 ARCH 


4787 
4788 043612 
4789 Beate 


4806 704 
4807 043712 
4808 043714 


4810 
4811 043716 
4812 043724 


4814 043734 
4815 043740 
4816 043746 
ry it 043754 


4818 
4819 043756 
4820 


4821 
4822 


072702 


012737 


TST 1 


000002 


141101 
041101 


000000 
177776 


001136 
001140 


043612 


055370 


045260 


000014 
157777 
001136 
000014 
020000 


043764 





15 _ 
MACRO VO3.01 11-APR-80 13:58:55 PAGE 12-99 


001124 


90$: MOV 


130$: MOV 


;STEP 2 CLOCKS AND VERIFY GO IS RESET 
80s MOV #2,R2 


MOV ADMD ! MUR ! DBEN! MDF ! DBCK ,RMMR1 (RO) 
80$ 

RMCS1(RO) , SBDDAT 
#*CGO,$BDDAT 


90 
MOV RO, $BDADR 
S$GDDAT 
EMT 260 


MOV fhe eicgiacteaterl -RMMR1 (RO) ;LOAD 


;LOAD RMMR1 
RMMR 1 


STORE RMCS1 AT $8DDAT 


: (THE OTHER TWO ABORT TESTS IN THE COMMAND SEQUENCER ARE TESTED 


[DURING DATA COMMAND TESTS) 
#100$,$LPERR 


= PC,SETVV :GO SET VOLUME VALID 


: CHANGE LOOP ON ERROR ADDRESS 
hs gl OPI SETS IF ON CYLINDER LATCH DOESNT CLEAR 


110$ [BRANCH TO 110$ IF NO ERROR 


EMT 
JMP 330$ 


ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
_— OMMAND 


AND LOAD SEARCH C 


MOV #DMD ! MUR ! DBEN, RMR (RO) ;LOAD RMMR1 
MOV #0 ,RMDA(RO) ;LOAD RMDA 

MOV #0RMDC (RO) ;LOAD RMDC 

MOV #0 ,,RMER1 (RO) [LOAD RMER1 

MOV #0 ,RMER2 (RO) z;LOAD RMER2 

MOV #SEARCH!GO,RMCS1(RO) LOAD RMCS1 


STEP og eee SEQUENCER 


1208: 


MOV #DMD ! MUR ! DBEN! DBCK , RMMR1 (RO) 


4 sheet dacaetniain (RO) ;LOAD RMMR1 
BNE 120$ 
:VERIFY THAT OPI IS S$ 
MOV RMERI RO), + eed 
BIC #°COPI ,$BDDA 
BNE 1303 
MOV 


RO, $8DAD 
ADD ARMER1 SBDADR 
MOV he -SGDDAT 


#150$,$LPERR 





LOAD RMMR1 


STORE RMER1 AT S$BDDAT 


CHANGE LOOP ON ERROR ADDRESS 


:VERIFY ATA SETS IF DRIVE COMPLETES SEARCH (ON CYLINDER AND 
SECTOR COMPARE SETS) 


SEQ 0188 


=m | 


— ane te + te 


4823 043764 

4824 043764 
043770 
043772 

4825 043774 

4826 

4827 

4828 

4829 044000 

4830 044000 

4831 044006 

4832 044014 

4833 044022 

4834 044030 

4835 044036 

4836 

4837 

4838 044044 

4839 044050 
044050 

4840 044056 

4841 044064 

4842 044066 

4843 

4844 

4845 

4846 044070 

4847 


4848 
4849 044u76 
4850 
4852 044104 
4853 044110 


4856 124 
4857 044126 
4858 
4859 
4860 
4861 oer lee 
4862 044136 
4863 044144 
4864 


5 
4866 044152 
4867 044156 

044156 
4868 044164 
4869 044172 
4870 044174 
4871 


4874 044204 
4875 044212 


012760 


012702 


012760 


012760 


012702 





000021 


141401 
041401 


041005 


051401 
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000024 
000024 


150$: 
JSR PC,SETVV :GO SET VOLUME VALID 
BR 160$ [BRANCH TO 160$ IF NO ERROR 
JMP 330$ 
;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
;ADDRESS, AND LOAD SEARCH COMMAND 
MOV #DMD !MUR ! DBEN! MOC ,RMMR1 (RO) :LOAD RMMR1 
MOV #0,,RMDA(RO) ;LOAD RMDA 
MOV #0.RMDC (RO) [LOAD RMDC 
MOV #0.RMER1 (RO) : LOAD RMER1 
MOV *RMER2(RO) OAD RMER2 
MOV ASEARCH!GO,RMCS1 iho ;LOAD RMCS1 
STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (17 CLOCKS) 
170$: *y 
MOV ADMD ! MUR ! DBEN! DBCK !MOC , RMMR1 (RO) :LOAD RMMR1 
MoV #DMD MUR !DBEN!MOC , RUM (RO) ZLOAD RMMR1 
BNE 170$ 
: DROP ON CYLINDER TO RESET LATCH,AND RAISE INDEX PULSE 
=TO SET FORMAT CHANGE FLOP 
MOV #DMD !MUR ! DBEN! MI, RMMR1 (RO) :LOAD RMMR1 
;RAISE ON CYLINDER AND INHIBIT SEARCH TIMEOUT 
MOV ADMD !MUR' DBEN!MOC !DTO,RMMR1(RO) ;LOAD RMMR1 


sSTEP — ad TO SEARCH ENABLE (2 CLOCKS) 


180$: 
MOV #DMD ! MUR! DBEN! MOC !DTO! DBCK,,RMMR1 (RO) ;LOAD RMMR1 
a Sr FORRES OTR ONS (RO) ;LOAD RMMR1 
BNE 180$ 

owe COMPARE BY CLOCKING SECTOR PULSE WITH SECTOR COMPARE 

‘ MOV #DMD ! MUR ' MOC! DBEN!DTO!'MSC ,RMMR1 (RO) ;LOAD RMMAR1 
MOV #DMD!MUR'MOC!DBEN!DTO'MSC!MS,RMMR1(RO) ;LOAD RMMR1 
MOV #DMD ! MUR! MOC! DBEN! DTO!MSC ,RMMR1 (RO) ;LOAD RMMAR1 

;CLOCK SEQUENCER TO SET ATA (3 CLOCKS) 

case #3,R2 zR2 = CLOCK COUNT 

"Mov DMD ! MUR! MOC '! DBEN!DTO!DBCK,RMMR1 (RO) ;LOAD RMMR1 

= SPORE RET EE (RO) ;LOAD RMAR1 
BNE 185$ 

;VERIFY ATA IS SET 
5 RMDS(RO), SeDpAT ;STORE RMDS AT $8DDAT 


BNE 


#*CATA, SBDDAT 
190$ 


SEQ 0189 | 





CZRMPAO eae fe me 
T114 SEAR 


4876 044214 012737 


4896 044316 012760 
4897 


4898 
4899 044324 012702 


4906 
4907 044350 012760 
4908 


4909 

4910 044356 012702 
4911 044362 

491 012760 


4917 
4918 044402 016037 
4919 044410 os FE 


4923 044432 104263 

4924 

4925 

4926 044434 
4434 

4927 

4928 

4929 044442 012702 


012760 





TST 1 


100000 
001136 
000012 


000031 
000021 
141401 
041401 
041001 
000007 


141001 
041001 


000000 
177776 


000001 
001136 


041201 


000003 
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001140 
001136 


001124 


000024 


00024 
000024 


001142 
001142 


001140 


000024 


MOV HATA, $GDDAT 
MOV RO, $BDADR 
ADD pe S,$BDADR 


190$: MOV #200$ , SLPERR : CHANGE LCIP ON ERROR ADDRESS 


SVERIFY THAT SEARCH ABORTS AFTER EXECUTION DURING SEARCH SEEK LOOP 
" “JSR PC,SETVV :GO SET VOLUME VALID 
BR 210$ :BRANCH TO 210$ IF NO ERROR 
JMP 330$ 


sENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
ZADDRESS AND LOAD SEARCH COMMAND 


210 
MOV ADMD !MUR ' DBEN! MOC ,RMMR1 (RO) ZLOAD RMMR1 
MOV #0, RMDA(RO) ;LOAD RMDA 
MOV #0,RMDC (RO) [LOAD RMDC 
MOV #O.RMER1(RO) :LOAD RMER1 
MOV #O,RMER2(RO) = LOAD RMER2 
MOV #SEARCH!GO,RMCS1 (RO) ;LOAD RMCS1 


Zs STEP —— at ee TO FIRST ON LATCH TEST (17 CLOCKS) 
220$: whe 


MOV #DMD ! MUR ! DBEN! MOC ! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
wr 94 ascertain (RO) ;LOAD RMMR1 
BNE 220$ 
DROP ON CYLINDER TO RESET LATCH, LEAVE = Aig ame 0 
MOV #DMD!MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 


3STEP COMMAND SEQUENCER THROUGH WAIT LOOP (7 CLOCKS) 
230: MOV #7 ,R2 
MOV ADMD ! MUR ! DBEN! DBCK , RMMR1 (RO) LOAD RMMR1 
MOV #DMD!MUR!DBEN,.RMMR1(RO) ;LOAD RMMR1 
DEC R2 
BNE 230$ 
VERIFY THAT GO IS STILL SET 
MOV 


RMCS1(RO), SEDDAT ;STORE RMCS1 AT $8DDAT 
BIC #°CGO, $BDDA 
BNE 240$ 
MOV #G0, $GDDAT 
MOV RO, $8DADR 
EMT 263 


5oet SEEK INCOMPLETE ERROR 
"MOV #DMD ! MUR ! DBEN! MSER,,RMMR1 (RO) LOAD RMMR1 
:STEP COMMAND SEQUENCER AND VERIFY GO RESETS (3 CLOCKS) 
MOV #3,R2 


— SEQ 0190 


=—on 


RMPAQ RMO5/3/2 DSKLS 
S SEARCH TEST 


4930 044446 

044446 
4931 044454 
4 044462 
eer ener 


38 044510 
4939 044514 
4940 
4941 044516 
4942 
4943 
4944 044524 
4945 044524 
044530 
044532 
4946 044534 
4947 
4948 
4949 
4950 044540 
4951 044540 
4952 044546 
4953 044554 
4954 044562 
4955 044570 
rhe 044576 


610 
4961 044616 
4962 044624 
4963 044626 
4964 
4965 
4966 
4967 044630 
4968 
4969 
4970 044636 
4971 
4972 
4973 044644 
4974 044650 
4975 044650 
4976 044656 
4978 044666 
4979 


4980 
4981 044670 
4982 044674 





012702 
012760 
012760 
005302 
001370 


012702 





055370 


045260 


041401 


000031 
000021 


141401 
047401 


041005 
051401 
000002 


151401 
051401 


000004 
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250$: 
#DMD !MUR ! DBEN!MSER ! DBCK,RMMR1 (RO) ;LOAD RMMR1 
MoV #OMD !MUR !DBEN!MSER, RMR (RO) ;LOAD RMMR1 
BNE 250$ 
MOV RMCS1 (RO) , SBDDAT :STORE RMCS1 AT $BDDAT 
BIC #*CGO, SBDDAT 
BEQ 2 
MOV RO, $BDADR 
CLR $GDDAT 
EMT 
260$: MOV #265$,$LPERR | ;CHANGE LOOP ON ERROR ADDRESS 
sVERIFY THAT SEARCH ABORTS DURING SECTOR COMPARE LOOP 
gan PC, SETVV :GO SET VOLUME VALID 
BR 270$ ‘BRANCH TO 270$ IF NO ERROR 
JMP 330$ 
;ENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
ZADDRESS, AND LOAD SEARCH COMMAND 
MOV ADMD !MUR ! DBEN! MOC ,RMMR1 (RO) ZLOAD RMMR‘ 
MOV #0, RMDA(RO) ;LOAD RMDA 
MOV #0. RMDC (RO) ‘LOAD RMDC 
MOV #0.RMER1(RO) = LOAD RMER1 
MOV #O,RMER2(RO) : LOAD RMER2 
MOV #SEARCH!GO,RMCS1 (RO) ;LOAD RMCS1 


:STEP COMMAND SEQUENCER TO FIRST ON LATCH TEST (17 CLOCKS) 
2758: ig 
MOV ADMD !MUR ! DBEN! DBCK ! MOC , RMMR1 (RO) ZLOAD RMMR1 
mov #DMD !MUR! DBEN!MOC, _RMMRI (RO) ZLOAD RMMR1 
BNE 275$ 


ay ON CYLINDER TO sir LATCH, AND RAISE INDEX PULSE 
;TO SET = CHANGE FL 


#DMD ! MUR ! DBEN! MI ,RMMR1 (RO) LOAD RMMR1 
sRAISE ON CYLINDER AND INHIBIT SEARCH TIMEOUT 
MOV #DMD ! MUR! DBEN!MOC!DTO,RMMR1(RO) ;LOAD RMMR1 


STEP COMMAND at a TO SEARCH ENABLE (2 CLOCKS) 
280$: 


MOV ADMD ! MUR ! DBEN! MOC !DTO! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
a “5, Sittin tt (RO) ;LOAD RMMR1 
BNE 280$ 
VERIFY THAT SEARCH ENABLE IS ON DURING SECTOR COMPARE LOOP 
MOV #4 ,R2 zR2 = CLOCK COUNT 


281$: 


SEQ 0191 | 


4983 044674 
4984 70 
4985 044710 
4986 


4996 
4997 044756 
044756 
5000 764 
5001 044770 
770 


5004 006 
5005 045010 
5006 045016 
5007 045024 
5008 045026 
5009 045034 
5010 045040 
5011 
5012 045042 
5013 045050 
5014 
5015 
5016 045054 
5017 045054 
045060 


045062 
apie 045064 


50 
5035 045130 


ie ooo maytag & a 


016037 
042737 


012760 


012702 


012737 
012703 


012702 


TST 1 


000024 
173777 
151401 
051401 


004000 
001136 
000024 
051501 
000002 


151501 
051501 


000000 
177776 
000000 
001136 


045054 
000001 


055370 


000011 
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001142 
001142 


000024 
000924 


001140 
001136 


000024 
000024 
000024 
001142 


001142 
001140 


001124 


000024 
000006 


000014 
000042 
000000 


MOV RMMR1 (RO) oe STORE RMMR1 AT S$BDDAT 
BIC #*“CESRC ,SBDDAT 


BEQ 282$ ;BRANCH IF SEARCH NOT ENABLED 


MOV #DMD !MUR !MOC ! DBEN!DTO!DBCK, pAb bey ;LOAD RMMR1 
nee “Pabst teatempaistaes: RMMRI(RO) ;LOAD RMMR1 
BNE Sas 
BR 283$ 
282$: MOV MESRC ,SGDDAT 
MOV RO, $BDADR 
ADD #RMMR 1 , SBDADR 
EMT 265 
sgt DRIVE FAULT TO CAUSE ABORT CONDITION 
"MOV #DMD ! MUR ! DBEN!MOC !DTO!MDF ,RMMAR1 (RO) LOAD RMMR1 


:STEP 2 CLOCKS AND VERIFY GO IS RESET 
MOV #2,R2 zR2 = CLOCK COUNT 


285$: 
MOV ADMD !MUR ! DBEN!MOC !DTO!MDF !DBCK,.RMMR1 (RO) :LOAD RMMR1 
MoV #DMD !MUR!DBEN!MOC !DTO:MDF , RMMR (RO) ZLOAD RMMR1 
BNE 285$ 
MOV RMCS1(RO) , $BDDAT :STORE RMCS1 AT $BDDAT 
BIC #*°CGO, SBDDAT 
BEQ $ 
MOV #0, $GDDAT 
MOV RO. SBDADR 
EMT 260 
290$: MOV #300$,$LPERR  ; CHANGE LOOP ON ERROR ADDRESS 
MOV #1,R3 TINITIALIZE CYLINDER ADDRESS 
gVERIFY THE TAG BUS DURING SEARCH 
— PC,SETVV :GO SET VOLUME VALID 
BR 310$ [BRANCH TO 310$ IF NO ERROR 
BR 330$ 


sENABLE DEBUG CLOCK, LOAD CYLINDER, TRACK AND SECTOR 
ADDRESS AND LOAD SEARCH COMMAND 


310$: 
MOV ADMD !MUR ! DBEN! MOC ,RMMR1 (RO) ZLOAD RMMR1 
MOV #0,RMDA(RO) ; LOAD RADA 
MOV R3,RMDC (RO) SLOAD RMD 
MOV #0. RMER1 (RO) : LOAD AMER 
MOV #0. RMER2(RO) OAD RMER2 
MOV #SEARCH!GO,RMCS1 iROD [LOAD RMCS1 


2G AAR RRA ERKEEEREEEEREEEEREKEREREEREREEEEKEEEEEEEEEREKEEE EE 


MOV #400$,R2 INITIALIZE TABLE POINTER 


;HARDWARE ECO CHANGE TO THE PLA OF THE 
[CLOCK THE SEQUENCER THRU THE FIRST 





am 
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SEARCH SEQ 0193 


5064 
5065 045242 
5066 045250 
5067 045256 
5068 


5075 045272 
5076 


5077 

5078 045274 
5079 045274 
5080 76 


5090 3 
5091 045322 





Ogee 
gers 


007370 
012702 


141401 
041401 


045316 


000002 


002000 


00002 
000024 


39. COMMAND SEQUENCES TO ALLOW THE PROGRAM 
TO RUN WITH OR WITHOUT THE ECO. 


312$: 
MOV #DMD ' DBEN!MUR !MOC ! DBCK ,RMMR1 (RO) :LOAD RMMR1 
MOV #DMD ' DBEN' MUR! MOC. RMMR 1 (RO) zLOAD RMMRT 
DEC R2 :DONE 9. CLOCKS ? 
BNE 312$ =NO ! 
MOV #450$,R2 INITIALIZE NEW TABLE POINTER 


ae SOIC OISIIOISIIIISISOISIIOOISOSIIOOISIUIIOIIO SOD nt iikttit 


: VERIFY TAG BUS ACCORDING TO TABLE AND CYLINDER IN R3 


315$ 
RMMR2 (RO) , SBDDAT :STORE RMMR2 AT $BDDAT 
BIC #ROA'ROB' TST, $BDDAT 
MOV (R2) , SGDDA 
BIS R3, $GDDAT zO0R CYLINDER ADDRESS IN 
CMP SGDDAT,S$BDDAT COMPARE EXPECTED AND RECEIVED 
BEQ 320$ [BRANCH IF TAG BUS OK 
MOV RO, $BDADR 
ADD ARMMR2 , SBDADR 
EMT 266 
BR 340$ 
jADVANCE TO NEXT ENTRY IN TABLE-EXIT IF DONE 
ADD #2,R2 
TST (R2) 
BMI 330$ ZEXIT IF ENTRY NEGATIVE 
sSTEP THE COMMAND SEQUENCER AND REPEAT VERIFICATION 
MOV ADMD ! DBEN' MUR !MOC ! DBCK ,RMMR1 (RO) :LOAD RMMR1 
MOV #DMD ' DBEN! MUR! MOC .RMMR1 (RO) ZLOAD RMMR1 
BR 315$ 
gREPEAT TAG BUS TEST FOR EACH PRIME CYLINDER, I... 1.2.4... 
ASL R3 ySHIFT TO NEXT CYLINDER 
CMP R3,41024. 
BHIS  340$ ZEXIT IF WAS DONE 
BR 300$ [TEST NEXT CYLINDER 
340$: BR 500$ > JUMP OVER TABLE 
jTABLe OF TAG BUS CONTROL AND BIT VALUES 
.WORD 1777 ;BUS BITS AT HIGH IMPEDENCE STATE 
“WORD 1777 . 
“WORD 1777 
WORD 77 
“WORD 1777 
“WORD (CC :CONTROL BITS ENABLED, BIT 6 ON 
“WORD (CC 
“WORD TAG!CC :TAG COMES ON 
WORD  TAG!CC 
450$: ZSTART TABLE HERE FOR HARDWARE ECO CHANGE 
WORD TAG!CC 
WORD  TAG!CC 
WORD  TAGICC 


am 





JW 
ee 


ra 
Nd 


AAAAAAAMAANA MAMI III II VII 
2S Se 
vin 
N 
Ss 


KF UNSSVBNRGRA PLBSaranran=ss &S 
RRRR RR RRRRRR RRKRKKK 
rs iS rS RFELEF 


51 





SEQ 0194 


177777 WORD :END TABLE HERE FOR HARDWARE ECO CHANGE 
: .WORD CC :TAG GOES OFF 
004000 “WORD CC 
001777 “wORD 1777 :CONTROL BITS DISABLED 
001777 “WORD 1777 
001777 ‘WORD 1777 
001777 “WORD 1777 
177777 .WORD <1 ZEND OF TABLE 
500$: ZEND OF TEST 
SAAR AREER REE EEEREEREEEKEEREEEKEEEEEEEREKEEEEEREERERER KEE 
tSTEST 115 SEARCH TIMEOUT TEST 
Oe negate amie tt rama aR rr ci cua sabi caning. Le 
TST115: 
SCOPE ZSCOPE CALL 
000240 NOP 
012706 001100 MOV #STACK, SP :LOAD THE STACK POINTER 
013700 001276 MOV S$BASE ,RO [RO = UNIBUS ADDRESS 
013701 001462 MOV TSTQUE,R1 [R1 = POINTER TO DEVICE 
012737 000115 001226 MOV #115, $TESIN :;SET TEST NUMBER IN APT MAIL BOX 
004737 055370 JSR PC,SETVV :GO SET VOLUME VALID * 
000402 BR 10$ [BRANCH TO 10$ IF NO ERROR 
104000 EMT 
000550 BR 90$ 
| i ENABL E DEBUG CLOCK AND LOAD SEARCH COMMAND 
012760 041401 000024 “MOV ADMD '!MUR ! DBEN! MOC , RMMR1 (RO) :LOAD RMMR1 
012760 000000 000014 MOV #0,RMER1(RO)  ;LOAD RMERT 
012760 000000 000042 MOV #O.RMER2(RO) § :LOAD RMER2 
012760 000000 000034 MOV *RMDC (RO) ‘LOAD RMDC 
012760 000000 000006 MOV #0. RMDA(RO) ‘LOAD RMDA 
012760 000031 000000 MOV MSEARCH'GO,RMCS1(RO) LOAD RMCS1 
yEXECUTE SEARCH TO TEST FOR ON LATCH RESET (17 CLOCKS) 
012702 000021 “ee MOV #17. ,R2 
012760 141401 000024 “mov #DMD !MUR ! DBEN! MOC ! DBCK,RMP * (RO) :LOAD RMMR1 
012760 041401 000024 MOV ADMD 'MUR | DBEN! MOC .RMMRI (ROD ZLOAD RMMR1 
005302 DEC R2 
001370 BNE 20$ 
:DROP ON CYLINDER TO RESET LATCH, RAISE ON CYLINDER 
012760 041001 000024 MOV ADMD !MUR'DBEN,RMMR1(RO) ;LOAD RMMR1 
012760 041401 000024 MOV ADMD 'MUR | DBEN'MOC , RMMR1 (RO) ;LOAD RMMR1 ‘ 
;STEP COMMAND SEQUENCER TO SECTOR COMPARE LOOP (2 -CLOCKS) 
012702 000002 al MOV #2,R2 
012760 151401 000024 "MOV #DMD !DBEN!MUR!MOC!DBCK!DTO.RMMR1(RO) —— : LOAD RMMR1 
012760 051401 000024 MOV #DMD ' DBEN'MUR'MOC'DTO,RMMR1(RO) :LOAD RMMR1 


SK CO MMNOODZ BKC KR TONMOODZ BTlKC KB TONMOOOZ BTKC KB TONMOVDS BTC 2H TA nNMOOMmM 
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T115 SEARCH TIMEOUT TEST SEQ 0195 
5135 045530 005302 DEC R2 
3136 045532 001370 BNE 30$ 
5138 THE COMMAND SEQUENCER IS NOW INTHE SECTOR COMPARE LOOP. STEP 
5139 “THROUGH THE LOOP AND VERIFY SEARCH IS ENABLED. 
5140 045534 012702 000005 MOV —s#5,R2 
5141 045540 408: 
045540 012760 151401 000024 MOV «ADMD !DBEN!MUR!MOC!DBCK!DTO,RMMR1(RO) — ; LOAD RMMR1 
5142 045546 012760 051401 000024 MOV #DMD ' DBEN!MUR!MOC!DTO,RMMR1 (RO) :LOAD RMMR1 
5143 045554 016037 000024 001142 MOV RAPIR] (RO) - SBDDAT ;STORE RMMR1 AT $SBDDAT 
5144 045562 042737 173777 001142 BIC #*CESRC,SBDDAT 
5145 045570 001403 | BEQ 50S BRANCH IF SEARCH NOT ENABLED 
5146 045572 005302 DEC R2 
5147 045574 001361 BNE 40$ 
5148 045576 000412 BR 60$ 
5149 045600 012737 004000 001140 50$: MOV § #ESRC.$GDDAT —; SETUP ERROR MSG 
5150 045606 010037 001136 MOV RO, SBDADR 
5151 045612 062737 000024 001136 ADD #RIMR1 , SBDADR 
5152 045620 104265 EMT 265 
3153 045622 000440 BR 90$ 
5155 ;DROP DTO TO ENABLE SEARCH TIMEOUT AND WAIT FOR OPI TO SET. 
5156 045624 60$: 
5157 045624 012760 041401 000024 MOV —s ADMD! MUR! MOC !DBEN. RMMR1 (RO) LOAD RMMR1 
5158 045632 012737 070000 001530 MOV _- #70000,WATCH =; SET WATCHDOG TIMER VALUE 
5640 004777 133666 JSR PC,aCLOCk START THE CLOCK 
5159 045644 70S: : 
045644 016037 000014 001142 MOV RMER1 (RO) , SBDDAT STORE RMER1 AT $BDDAT 
5160 045652 042737 157777 001142 BIC #*COPI , SBDDAT 
5161 045660 001017 BNE 80$ 
5162 005737 001530 TST WATCH 
5163 04 001 BNE 70$ 
5164 045670 004777 133640 JSR —«- PC, aSTOP ;STOP THE CLOCK 
5165 045674 012737 020000 001140 MOV «HOP , SGDDAT SETUP ERROR MSG 
5166 045702 010037 001136 MOV _—— RC, SBDADR 
5167 045706 062737 000014 001136 ADD #RMER1 , SBDADR 
5168 045714 104267 EMT 267 
5169 045716 000402 
5170 045720 80S: 
517 00720 004777 133610 JSR PC, aSTOP ;STOP THE CLOCK 
3172 045724 90$: END OF TEST 
5174 SEERA EREREEREREREEKREEEREEEEEEEEEEEKEEKEREEEREKKERE 
TRTEST 116 DATA COMMAND TESTS (1) 
FF REAR EEEEEEEEKEEEREEEEKEEEREEEEEEEEEREEREEEERKEKEK 
045724 $1116: 
045724 000004 SCOPE SCOPE CALL 
045726 000240 NOP 
012706 001100 MOV —«s #STACK, SP ;LOAD THE STACK POINTER 
3700 001276 MOV $BASE ,RO RO = UNIBUS ADDRESS 
045740 013701 001462 MOV TSTQUE .R1 :R1_= POINTER TO DEVICE 
mien 045744 012737 000116 001226 MOV #116, $TESTN SET TEST NUMBER IN APT MAIL BOX 
3176 ;VERIFY DATA COMMAND SETS OPI IF DRIVE NOT READY 
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T116 DATA COMMAND TESTS (1) 


5178 045752 004737 055370 
0457 2 
045760 104000 


1 
= 
SSz 
: 


30 012702 000003 


046034 012760 141401 
046042 012769 041401 


046050 005302 
046052 001370 


8 046054 012760 040401 


MAMMA WMI III III 
eee ot ot oo 


200 
5201 046062 012702 000002 
046066 
012760 140401 
040401 


000014 
157777 


SSeesease 
SSERESSESS 
EORVRKRGS 


06273 
asi¢ 046144 104270 
5214 046146 012737 046154 
5215 


216 

5217 046154 

5218 046154 004737 055370 
046160 


046162 
5219 046164 000576 
5220 


5221 
5222 046166 


5223 046166 012760 041401 
5224 046174 012760 000000 
5225 046202 012760 000000 
5226 046210 012760 000000 
5227 046216 012760 000000 
5228 046224 012760 000071 
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JSR PC.SETVV :GO SET VOLUME VALID 
a 10$ sBRANCH TO 10$ IF NO ERROR 
BR 40$ 
> mg DEBUG CLOCK AND LOAD READ COMMAND 
000024 MOV ADMD ! MUR ! MOC ! DBEN, RMMR1 a ;LOAD RMMR1 
000014 MOV #0 ,RMER1 (RO) ;LOAD RMER1 
000042 MOV #0.RMER2 (RO) LOAD RMER2 
MOV ° (RO) LOAD RMDA 
000034 MOV #0, RO) 


RMDC ( LOAD RMDC 
MOV #RD!GO,RMCS1(RO)* ;LOAD RMCS1 
zSTEP COMMAND SEQUENCER TO UNIT READY TEST (3 CLOCKS) 
MOV #3,R2 


20$: 
000024 MOV #DMD ! MUR! MOC ! DBEN! DBCK ,RMMR1 (RO) “LOAD RMMR1 
000024 as ~ acannon tees (RO) ;LOAD RMMR1 
BNE 208 
;DROP UNIT READY 
000024 MOV ADMD 'MOC'DBEN,RMMR1(RO) ;LOAD RMMR1 
;STEP SEQUENCER AND VERIFY OPI SETS (2 CLOCKS) 
MOV #2,R2 
30$: 
000024 MOV #DMD ! MOC ' DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
000024 ae “pts newman (RO) ;LOAD RMMR1 
y BNE 30$ 
001142 MOV RMER1 (RO) , SBDDAT ;STORE RMER1 AT S8DDAT 
001142 BIC #*COPI 1, $BDDAT 
BNE 40$ 
001140 MOV #OPI ,SGDDAT 
MOV RO, $BDADR 
001136 ADD ARMER1 , SBDADR 
EMT 270 


001124 40$: MOV #50$,$LPERR ; CHANGE LOOP ON ERROR TEST 


iVERIFY DATA COMMAND ABORTS AT LOCATION 129 
gm PC,SETW :GO SET VOLUME VALID 
BR 60$ [BRANCH TO 60$ IF NO ERROR 
BR 150$ 
jENABLE DEBUG CLOCK AND LOAD READ COMMAND 
000024 "MOV ADMD ! MUR! MOC ! DBEN, RMMR1 (RO) :LOAD RMMR1 
000014 MOV #0,RMER1(RO)  ;:LOAD RMERT 
000042 MOV #O;RMER2(RO)  :LOAD RMER2 
MOV #0. RMDA(RO) [LOAD RMDA 
000034 MOV ( tL 


#0,,RMDC (RO) OAD RMDC 
MOV #RD!GO,RMCS1(RO)° LOAD RMCS1 


SEQ 0196 
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16 DATA COMMAND TESTS (1) SEQ 0197 
5229 
5230 zSTEP COMMAND SEQUENCER TO ABORT TEST AT LOCATION 129 (4 CLOCKS) 
5231 046232 012702 000004 MOV #4 ,R2 
5232 046236 70$: 
046236 012760 141401 000924 MOV ADMD ! MUR ! MOC ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 
5233 046244 012760 041401 000024 MOV #DMD ! MUR! MOC ' DBEN, RMMR1 (RO) ;LOAD RMMR1 
5234 046252 005302 DEC R2 
o532 046254 001370 i BNE 70$ 
5237 ; SET ee heey TO CAUSE ABORT CONDITION 
ose6 046256 012760 041501 000024 ADMD !MUR! MOC! DBEN! MDF ,RMMR1(RO) ;LOAD RMMR1 
5240 sSTEP THE SEQUENCER THROUGH THE TEST FOR ABORT (1 CLOCK) 
5241 046264 012702 000001 MOV #1,R2 
5242 046270 : 80$: 
046270 012760 141501 000024 MOV #DMD ! MUR! MOC ! DBEN! MDF ! DBCK ,RMMR1 iy LOAD RMAR1 
5243 046276 012760 041501 000024 MOV #DMD !MUR! MOC! DBEN!MDF .RMMR1(RO) ;LOAD RMMR1 
5244 046304 005302 DEC R2 
age? 046306 001379 BNE 80$ 
5247 sABORT EBL SHOULD NOW BE ACTIVE - USE THE MAINTENANCE REGISTER TO 
5248 sFORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS 
258 erat 012702 000020 ass MOV #16. ,R2 MAXIMUM NUMBER OF BIT CLOCKS 
314 012760 045501 000024 MOV ADMD ! MUR: MOC ! DBEN! MDF !MCLK ,RMMR1 (RO) LOAD RMMR1 
5251 046322 012760 041501 000024 MOV #DMD !MUR'MOC'DBEN!MDF ,RMMR1(RO) ;LOAD RMMR1 
5252 046330 016037 000024 001142 MOV RMMAR1 (RO) , SBDDAT ;STORE RMMR1 AT SBDDAT 
5253 046336 042737 157777 001142 BIC #*CEBL ,SBDDAT 
2526 046344 001014 BNE 90$ sBRANCH IF EBL IS SET 
5256 046346 005302 DEC Re 
5257 046350 001361 BNE 85$ CONTINUE BIT CLOCKS IF COUNT NOT 0 
5258 046352 012737 020000 001140 MOV #EBL , SGDDAT 
5259 046360 010037 001136 MOV RO, $BDADR 
5260 046364 062737 000024 001136 ADD ARMMR1 , SBDADR 
5261 046372 104271 EMT 271 
2608 046374 000472 BR 150$ 
5264 zSTEP THE SEQUENCER THROUGH ITS TEST FOR EBL (2 CLOCKS) 
5265 046376 90$: 
5266 046376 012702 000002 MOV #2,R2 
5267 046402 100$: 
5268 046402 012760 141501 000024 MOV ADMD ! MUR! MOC ! DBEN! MDF ! DBCK ,RMMR1 ey ;LOAD RMMR1 
5269 046410 012760 041501 000024 MOV #DMD!MUR'MOC 'DBEN'MDF -RMMR1(RO) ;LOAD RMMR1 
5270 046416 005302 DEC Re 
asth 046420 001370 BNE 100$ 
5273 :ABORT EBL SHOULD NOW BE INACTIVE - FORCE BIT CLOCK USING THE 
5274 sMAINTENANCE REGISTER TO RESET EBL (16 BIT CLOCKS) 
ash? peehee 012702 000020 1108: MOV #16. ,R2 :MAXIMUM NUMBER OF BIT CLOCKS 
046426 012760 045501 000024 MOV ADMD ! MUR! MOC ! DBEN! MDF !MCLK ,RMMR1 ye ;LOAD RMMR1 
5277 046434 012760 041501 000024 MOV #DMD!MUR' MOC! DBEN'MDF ,RMMR1(RO) ;LOAD RMMR1 
5278 046442 005302 DEC Re 
$50) 046444 001370 BNE 110$ ISSUE 16 BIT CLOCKS THEN TEST 


5281 ; VERIFY EBL IS NOW RESET 
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T116—- DATA COMMAND TESTS (1) SEQ 0198 
5282 046446 1208: 
$283 046446 016037 000924 001142 RMMR1 (RO), $BDDAT :STORE RMMR1 AT $BDDAT 
5284 046454 042737 157777 001142 BIC #*CEBL,SBDDAT 
5285 046462 001411 BEQ 130$ ;BRANCH IF EBL IS RESET. 
5286 046444 005037 001140 CLR $GDDAT 
5287 946470 010037 001136 MOV RO, SBDADR 
5288 046474 062737 000024 001136 ADD #RMMR 1, SBDADR 
5289 046502 104273 EMT 273 
5290 046504 000426 BR 150$ 
5292 :VERIFY GO RESETS WITHIN 4 CLOCK CYCLES 
5293 046506 130$: 
5294 046506 012702 000004 MOV #4 ,R2 
5295 046512 1408: 

046512 012760 141501 000024 MOV #DMD !MUR ! MOC ! DBEN! MDF ! DBCK,RMMR1 (RO) ZLOAD RMMR1 
296 046520 012760 041501 000024 MOV #DMD !MUR!MOC !DBEN! MDF ,RMMR1(RO) ;LOAD RMMR1 
5297 046526 005302 DEC R2 
5298 046530 001370 BNE 140$ 
5299 046532 016037 000000 001142 MOV RMCS1(RO) , SBDDAT :STORE RMCS1 AT $B8DDAT 
5300 046540 042737 177776 001142 BIC #*CGO, SBDDAT 
5301 046546 001405 BEQ 150$ 
5302 046550 005037 001140 CLR $GDDAT 
5303 046554 010037 001136 MOV RO, $BDADR 
3304 046560 104274 EMT 274 
3306 046562 012737 046570 001124 150%: MOV #200$,$LPERR  ;CHANGE LOOP ON ERROR ADDRESS 
5308 ; VERIFY SEQUENCER BRANCHES TO SEEK WHEN RUN AND GO FLOP SETS 
5309 046570 200S: 

5310 046570 004737 055370 JSR PC, SETVV :GO SET VOLUME VALID 

046574 000402 BR 210$ ‘BRANCH TO 210$ IF NO ERROR 

046576 104000 EMT 
5311 046600 000512 BR 250$ 
5313 ;ENABLE DEBUG CLOCK AND LOAD DATA COMMAND 
5314 046602 210$: 

5315 046602 012760 041401 000024 MOV #DMD !MUR ! MOC ! DBEN, RMMR1 (RO) ZLOAD RMMR1 

5316 046610 012760 000000 000014 MOV #0.RMER1(RO) =; LOAD RMER1 

5317 046616 012760 000000 000042 MOV #O,RMER2(RO)  : LOAD RMER2 

531 012760 000000 MOV *RMDA (RO) RMDA 

5319 046632 012760 000000 000034 MOV #0, RMDC (RO) [LOAD RMDC 

3320 046640 012760 000071 000000 MOV #RD !GO,RMCS1 (RO) :LOAD RMCS1 

5322 ;MOVE SEQUENCER TO TEST FOR RUN AND GO AT LOCATION 130 (5 CLOCKS) 
5323 046646 012702 000005 MOV #5,R2 

5324 046652 2208: 

046652 012760 141401 000024 MOV ADMD !MUR '! MOC ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
5325 046660 012760 041401 000024 MOV ADMD ' MUR ' MOC ! DBEN, RMMR1 (RO) ZLOAD RMMR1 
5326 046666 005302 DEC R2 
5327 046670 001370 BNE 220$ 
5329 ;VERIFY RUN AND GO IS 
5330 046672 016037 000024 001142 MOV RHR] (ROD SBDDAT :STORE RMMR1 AT $BDDAT 
5331 046700 042737 137777 001142 BIC #°CRG, SBDDAT 
5332 046706 001012 BNE 230$ 
5333 046710 012737 040000 001140 MOV ARG, SGDDAT 


5334 046716 010037 001136 MOV RO, $8DADR , 





T116 


5335 046722 
5336 046730 
ESA 046732 


5341 734 
5342 er tr 


362 016 
5363 047024 
364 
5365 047026 
5366 
5367 

368 047034 


5 

5369 047040 

5370 047040 
047044 


047046 
og7) 047050 





CZRMPAQ RMOS/3/2 DSKLS TST 1 


DATA COMMAND TESTS (1) 


062737 000024 
104275 


012702 000001 


141401 
041401 


016037 000040 


042737 162000 


012737 
023737 
001406 


004000 
001140 
001136 
000040 
012737 047040 


012702 000144 


055370 


041401 


000071 
000310 
132402 


000024 
137777 
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001136 


000024 
000024 


001142 


001142 


001140 
001142 


001136 


001124 





: VERIFY 
$: 


230 
2408: 


J TREE REE EEEEEREREKEREEEEEREREEREREEREEKEEEEEEEREREERE 


DBAS SIIOIIOIOISISIIIOI SISSIES ISISIIIOIIISISIIIOIIOIIIIUOIEI IOI It 


250$: 
; VERIFY 
260$: 


NABLE 
OS: 


nor 
nm 


280$: 


ADD #RMMR1 , SBDADR 

EMT 275 

BR 250$ 

THAT CYLINDER TAG COMES UP IN ONE CLOCK CYCLE 

MOV #1,R2 

MOV #DMD ! MUR ! MOC ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 
ore *. Sephetrsetints:ostgssts tah (RO) LOAD RMMR1 

BNE 240$ 

MOV RMMR2 (RO) , SBDDAT zSTORE RMMR2 AT $BDDAT 


BIC #RQA! ROB! TAG, $BDDAT 
+ THE FOLLOWING CODE WAS ADDED 
;TO ALLOW THE PROGRAM TO RUN WITH 
OR WITHOUT THE ECO TO THE CS BOARD 
BIC #RQA!RQB! TAG! CH, SBDDAT 


:CH TO SET AT THE 


MOV #CC,$GDDAT 

CMP SGDDAT , SBDDAT 

BEQ 250$ 

MOV RO, SBDADR 

ADD ARMMR2 , SBDADR 

EMT 276 

MOV #260$ ,$LPERR CHANGE LOOP ON ERROR ADDRESS 


DATA COMMAND ABORTS AT COMMAND SEQUENCER LOCATIONS 144, 


MOV #144,R2 INITIALIZE TEST LOCATION 


JSR PC,SETVWV 7GO SET VOLUME VALID 

BR 270$ [BRANCH TO 270$ IF NO ERROR 
BR 320$ 

DEBUG CLOCK AND LOAD DATA COMMAND 

MOV #DMD 'MUR ! MOC ! DBEN, RMMR1 (RO) ZLOAD RMMR1 
MOV #0,RMER1(RO)  ;LOAD RMER1 

MOV “RMER2(RO) LOAD RMER2 

MOV #0. RMDA(RO) [LOAD RMDA 

MOV *RMDC (RO) [LOAD RMDC 

MOV #RD!GO,RMCS1(RO) :LOAD RMCS1 


WAIT FOR RUN - GO TO SET 
MOV #200. , WATCH SET WATCHDOG TIMER VALUE 
JSR PC, aCLOCk START THE CLOCK 
MOV RMMR1 (RO), ape! STORE RMMR1 AT $B8DDAT 


BIC #*CRG, SBDDAT 
290$ 


1 


HARDWARE ECO CHANGE CAUSES CC AND 
SAME TIME 


45 


SEQ 0199 


T116 


5387 047146 
5388 


5397 

5398 047210 
5399 047214 
5400 0 


5401 2 
5402 047226 


FREKRK 
DONA 


7300 
5420 047304 
304 


5434 047372 
ed 047376 
5437 047400 
5438 
5439 





005737 
001366 
004777 
012737 
010037 
062737 
104275 
000476 
004777 


012703 
022702 
001402 
012703 


012737 


CZRMPAO a of DSKLS TST 1 
A COMMAND TESTS 


$ (1) 
001530 
132354 
040000 
001136 
000024 


132324 


000006 
000144 
000007 


141401 
041401 


041501 
000001 


141501 
041501 


000020 


045501 
041501 


000024 
157777 
020000 
001136 
000024 
000144 
000145 


047410 


001140 
001136 


000024 
000024 


000024 


000024 
000024 


000024 


000024 
001142 
001142 


001140 
001136 


001124 





TST WATCH 

BNE 80$ 

JSR PC, aSTOP :STOP THE CLOCK 
MOV #RG, SGDDAT 

MOV RO, $8DADR 

ADD 1, $BDADR 

EMT 5 

BR 320$ 


290$: 
JSR PC, a@STOP STOP THE CLOCK 


;MOVE COMMAND SEQUENCER TO ABORT TEST (LOCATION 144 OR 145) 
MOV #6,R3 SETUP CLOCK COUNT 

#144,R2 

300$ 


BEQ 
MOV #7 ,R3 
300$: 
MOV #DMD 'MUR ! MOC ! DBEN! DBCK,RMMR1 (RO) ;LOAD RMMR1 
ore -, faetentnaandcsomeectatt (RO) ;LOAD RMMR1 
BNE 300$ 
gSET vag | B snaad TO FORCE ABORT CONDITION 
ADMD 'MUR!MOC!DBEN! MDF ,RMMR1(RO) ;LOAD RMMR1 
; CLOCK _— aa ITS TEST FOR ABORT (1 CLOCK) 
305$: 
ADMD ! MUR ! MOC ' DBEN! MDF 'DBCK,RMMR1 (RO) ;LOAD RMMR1 
~4 Stalemate itt anda (RO) ;LOAD RMMR1 
BNE 305$ z ISSUE 2 CLOCKS 


sABORT EBL SHOULD NOW BE ACTIVE ~ USE THE MAINTENANCE REGISTER TO 
:FORCE , is CLOCKS AND VERIFY in SETS WITHIN 16 BIT CLOCKS 


3506S: - -R2 ; MUM NUMBER OF BIT CLOCKS 
MOV ADMD ! MUR ! MOC ! DBEN! MDF !MCLK ,RMMR1 * LOAD RMMR1 
MOV #DMD 'MUR' MOC! DBEN! MDF ,RMMR1(RO) ;LOAD RMMR1 
MOV RMMAR1 (RO) , SBDDAT : STORE RMR | AT $8DDAT 
BIC #°CEBL , SBDDAT 
BNE 310$ BRANCH IF EBL IS SET 
DEC R2 
BNE 306$ CONTINUE BIT CLOCKS IF COUNT NOT 0 
MOV #EBL, oe 
MOV RO, SBDAD 
ADD #RIAR1, SBDADR 
EMT 271 
310$: CMP #144 ,R2 
BNE 20$ 
MOV #145,R2 
BR 260$ 
320$: MOV #330$,$LPERR ; CHANGE LOOP ON ERROR ADDRESS 


;VERIFY HEAD TAG DURING DATA COMMAND 


CZRMPAQ wae Fee DSKLS TST 1 
T116 COMMAND TESTS (1) 


5440 047406 005002 

5441 047410 

5442 047410 
047414 00040 


047416 
5443 047420 
5444 





055370 


5445 

5446 047422 
5447 047422 041401 
5448 430 


000071 


000310 
132034 
000024 
54 504 137777 
5458 047512 
5459 047514 
5460 520 


5467 047552 
552 
5468 


131756 


000021 


141401 
012760 041401 


5470 556 
5471 047562 

562 
5472 047570 


5476 
5477 047602 


54 
5485 047616 
5486 


5488 047622 
5489 047622 
5490 047630 
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; SEQ 6201 
_ CLR R2 ; INITIALIZE TRACK ADDRESS = 0 
"SR PC,SETVV :GO SET VOLUME VALID 
BR 340$ [BRANCH TO 340$ IF NO ERROR 
400$ 
gENABLE DEBUG CLOCK AND LOAD DATA COMMAND 
000024 MOV #DMD !MUR ! MOC ! DBEN, RMMR1 (RO) ZLOAD RMMR1 
000014 MOV #0,RMER1(RO)  ;LOAD RMER1 
000042 MOV #O.RMER2(RO) = LOAD RMER2 
MOV R2.RMDA(RO) : RMDA 
000034 MOV *RMDC (RO) [LOAD RMDC 
MOV #RD 'GO,RMCS1(RO) ;LOAD RMCS1 ; 
:WAIT FOR RUN AND GO TO SET 
001530 MOV #200. ,WATCH ;SET WATCHDOG TIMER VALUE 
ite JSR PC ,a@CLOCk SSTART THE CLOCK 
001142 "MOV RMMR1 (RO), SBDDAT ;STORE RMMR1 AT SBDDAT 
001142 BIC #°CRG, SBDDAT 
BNE 360$ 
TST WATCH 
BNE 50$ 
JSR PC, aSTOP :STOP THE CLOCK 
001140 MOV #RG, SGDDAT 
MOV RO, $8DADR 
001136 ADD 1,$BDADR 
EMT 5 
BR 400$ 
360$: 
JSR PC, aSTOP :STOP THE CLOCK 
STEP COMMAND SEQUENCER TO HEAD SEQUENCE, LOCATION 156 (17 CLOCKS) 
3708: a 
000024 MOV #DMD !MUR !MOC ! DBEN! DBCK,RMMR1 (RO) :LOAD RMMR1 
000024 MOY #DMD MUR MOC! DBEN. ROR (RO) ZLOAD RMMR1 
BNE 370$ 
:DROP AND RAISE ON CYLINDER TO RESET ON LATCH 
000024 MOV ADMD 'MUR'DBEN,RMMR1(RO) :LOAD RMMR1 
000024 MOV #DMD 'MUR 'MOC ! DBEN, RMMR1 (RO) :LOAD RMMR1 


J EAE EEK EEKEREKEREEEERERREEEEREEKEEREEEREEKEEKEEEEEEEEEEEKEREEE 


MOV #450$,R3 sINITIALIZE TABLE POINTER 
;HARDWARE ECO CHANGE TO THE PLA ON THE 
MOV #4,R3 [CLOCK THE SEQUENCER THRU THE FIRST 
:4 COMMAND SEQUENCES TO ALLOW THE PROGRAM 
vat [TO RUN WITH OR WITHOUT THE ECO. 
000024 "Mov #DMD ! DBEN! MUR ! MOC ! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
000024 MOV #DMD | DBEN' MUR 'MOC .RMMR1 (RO) ZLOAD RMMR1 


T116 





op 047636 
047640 
3298 047642 


06 047706 
ao00 047714 


5509 
5510 047722 


5546 050024 
5547 


005303 
001370 
012703 


016037 
04 


101615 
020237 
101007 


CZRMPAO A ff DSKLS TST 1 
ATA COMMAND TESTS (1) 


050014 


Q00040 
150000 
001140 


001140 
001140 
141401 
041401 


000002 


000400 
010000 


001330 


001330 


001136 
000040 
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DEC DONE 4 CLOCKS ? 
BNE 372$ 3NO !! 
#475$ ,R3 s INITIALIZE NEW TABLE POINTER 


Sf AAA EERE EEE EERE RARER EERE REE ERK 


gvERiry TAG BUS ACCORDING TO TABLE AND TRACK ADDRESS IN R2 


001142 MOV RMMR2 (RO) , SBDDAT ;STORE RMMR2 AT $BDDAT 
001142 BIC #ROA!ROB TST, SBDDAT 
MOV (R3), 15600 
MOV R2,R ;GINERATE EXPECTED TAG BUS 
SWAB 4 
BIS R4,$GD 
001142 CMP SChDAT. : SEDDAT 
BNE 390$ 
024 MOV #DMD ! MUR ! MOC ! DBEN! DBCK,RMMR1 (RO) ;LOAD RMMR1 
000024 MOV #DMD ' MUR! MOC | DBEN.RMMR1 (RO) ZLOAD RMMR1 
;ADVANCE TO NEXT TABLE ENTRY 
ADD #2,R3 
TST (AS) 
BMI 380$ 
BR 375$ 
gSHIFT TO NEXT TRACK ADDRESS-EXIT LOOP IF DONE 
ADD #TA1,R2 ADVANCE TRACK ADDRESS 
001330 BIT #TA16,LSTRK :1S IT RMOS ? 
BEQ 385$ :NO !! 
CMP R2,LSTRK ; DONE (WITH TRACKS ON RMOS ? 
i: BLOS 330$ =NO ! 
CMP R2,LSTRK :DONE WITH TRACKS ON RMO2/3 ? 
BHI 400$ :YES, EXIT 
BR 330$ 


gERROR ON TAG BUS DURING HEAD SEQUENCE 
"mov RO, $BDADR 
ARMMR 


001136 ADD 2, $BDADR 

EMT 

400$: BR 5008 ; JUMP OVER TABLE 

jJABLE OF TAG BUS DURING HEAD SEQUENCE 
-WORD CH 
-WORD CH 
“WORD _ CH!TAG 
“WORD * CHITAG 

475$: ;START TABLE HERE FOR HARDWARE ECO CHANGE 
-WORD CH!TAG 
WORD CHITAG 
WORD  CHiTAG ; 
WORD CHITAG 
“WORD =1 ;END TABLE HERE FOR HARDWARE ECO CHANGE 





SEQ 0202 





CZRMPAO RMOS/3/2 DSKLS TST 1 
T1116 DATA COMMAND TESTS (1) 


5548 
5549 050026 
5550 © 


g200 050100 001777 
e208 050102 177777 
5574 050104 

5575 

5576 


001100 
001276 
050120 013701 porate 
00011 
5579 
5580 050132 004737 055370 
050136 
050140 000 
5581 050142 000514 
5582 


5583 
5584 050144 
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001226 


; ~WORD CH 
. WORD 
WORD 1777 
-WORD 1777 
-WORD 1777 
WORD 1777 
WORD 1777 
-WORD 1777 
-WORD 1777 
eWORD 1777 
WORD 1777 
WORD 1777 
«WORD 1777 
-WORD 1777 
-WORD 1777 
-WORD 1777 
-WORD 1777 
-WORD 1777 
-WORD 1777 
WORD 1777 
WORD 1777 
D 1777 
-WORD 1777 
.~ WORD -1 sEND OF TABLE 
500$: zEND_ OF TEST 
FREER KR EE EEK REE EREEREEEEE 
TSTEST 117 DATA COMMAND TESTS (2) ‘ 
CL ARERR EERE KERR EKEEEEKEKKE 
TST117: 
=e :SCOPE CALL 
MOV ASTACK, SP ;LOAD THE STACK POINTER 
MOV $BASE ,RO [RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 [R1 = POINTER TO DEVICE 
MOV #117, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
;VERIFY OPI SETS IF ON CYLINDER LATCH DOESNT RESET 
JSR PC,SETVV ;G0 SET VOLUME VALID 
lt 10$ ;BRANCH TO 10$ IF NO ERROR 
BR 60$ 
qeenaLe DEBUG CLOCK AND LOAD DATA COMMAND DURING CYLINDER SEQUENCE 
E MOV ADMD ! MUR! MOC! DBEN, POOR (RO) ;LOAD RMMR1 
MOV #0,RMER1 (RO) ; LOAD RMER1 
MOV #0 ,RMER2 (RO) :LOAD RMER2 
MOV ~RMDA(RO) : RMDA 
MOV #0 ,RMDC (RO) ;LOAD RMDC 
MOV #RD!GO,RMCS1(RO) ;LOAD RMCS1 


WAIT FOR RUN AND GO TO SET 


SEQ 0203 


T1117 


CZRMPAO RMOS/3/2 DSKLS T 
DATA 


5593 050210 
5594 050222 
5595 050230 
5596 36 


5602 0 

5603 050272 

5604 050274 

5605 050276 
050276 


5617 050352 

5618 050356 

5619 050364 

5620 050366 

5621 

5622 

5623 050374 

5624 050374 
050400 


050402 
5625 050404 
562 


5636 

5637 050452 
050460 

5638 050464 
050464 

5639 050472 

5640 050500 

5641 050502 





COMMAND TES 


012737 
004777 


000014 
157777 
020000 
001136 
000014 
050374 


055370 


000071 
000310 
131046 


000024 
137777 
001530 
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001530 


001140 
001136 


000024 
000024 


001142 
001142 
001140 
001136 
001124 


MOV #200. ,WATCH SET WATCHDOG TIMER VALUE 
JSR PC,@CLOCK START THE CLOCK 


20$: 
MOV RMMR1 (RO), SBDDAT sSTORE RMMR1 AT $BDDAT 
BIC #*CRG, SBDDAT 
BNE 30$ 
TST WATCH 
BNE 20$ 
JSR PC,a@STOP ;STOP THE CLOCK 
MOV #RG,SGDDAT 
MOV ~ SBDADR 
ADD 1,$BDADR 
EMT 
BR 60$ 
30$: 
JSR PC,a@STOP ;STOP THE CLOCK 


STEP soy ye SEQUENCER AND VERIFY OPI SETS (19 CLOCKS) 
40$: Ds 


MOV #DMD !MUR ! MOC ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
MOV ADMD !MUR MOC !DBEN. RMPIR (RO) ;LOAD RMMR1 

BNE 40$ 

MOV RMER1 (RO) , SBDDAT ;STORE RMER1 AT $BDDAT 

BIC #*COPI , $BDDAT 

BNE 50$ BRANCH IF OPI SET 


#RMER? . . $8DADR 
50$: MOV #60$,SLPERR ; CHANGE LOOP ON ERROR ADDRESS 
iyeniry DATA COMMAND ABORTS DURING SEEK WAIT LOOP 


JSR PC,SETVV :GO SET VOLUME VALID 
BR 70$ [BRANCH TO 70$ IF NO ERROR 
BR 140$ 


ENABLE DEBUG CLOCK AND LOAD DATA COMMAND 
"MOV #DMD !MUR ! MOC ! DBEN, RMMR1 (RO) :LOAD RMMR i 
OAD RMER1 


MOV #0,,RMER1 (RO) sL 

MOV #0 ,RMER2 (RO) ;LOAD RMER2 
MOV -RMDC (RO) LOAD RMDC 
MOV 0) ; LOAD 


-RMDA(R : RMDA 
MOV #RD!GO,RMCS1 (RO) zLOAD RMCS1 


WAIT FOR RUN & GO TO SET 
MOV #200. ,WATCH SET WATCHDOG TIMER VALUE 


a JSR PC ,a@CLOCK SSTART THE CLOCK 
"MOV RMMR1(RO), SEDDAT :STORE RMMR1 AT $BDDAT 
BIC #°CRG, $BDDAT 
BNE 90$ 


TST WATCH 


SEQ 0204 


RMPAQ rt tan DSKLS TST 1 
17 ATA COMMAND TESTS (2) 


001366 


5653 050550 
550 

5656 050566 

5657 

5658 

5659 050570 

5660 


5661 
5662 050576 
5663 050602 


5683 050676 
5684 
5685 


5686 
5687 050700 
5688 050704 


050704 
5689 050712 
5690 050720 
5691 050726 
5692 050734 





012702 
012760 
012760 
005302 
001370 
012760 


012702 
012760 
012760 
005302 
001370 


012702 


131020 
040000 


001136 
000024 


130770 


000021 


141401 
041401 


041201 


000002 


141201 
041201 


000020 


045501 
041501 


000024 
157777 
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001140 
001136 


000024 
000024 


000024 


000024 
000024 


000024 
000024 
000024 


000024 
000024 


000024 
000024 
001142 
001142 


80$ 
JSR PC ,a@STOP 
MOV #RG, eyo 
MOV RO, $BDADR 
ADD A#RMMR1 , SBDADR 

275 

140$ 

JSR PC,a@STOP STOP THE CLOCK 
7 STEP we a 5 San TO ON LATCH TEST AT LOCATION 156 (17 CLOCKS) 


100$: iy 


STOP THE CLOCK 


90$: 


MOV ADMD ! MUR ! MOC ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 
MOV * thangs eat (RO) LOAD RMMR1 


DEC 2 
BNE 100$ 
;DROP ON CYLINDER TO RESET LATCH 
MOV ADMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 


:MOVE es SEQUENCER TO SEEK WAIT LOOP (31 CLOCKS) 


1108: as 


MOV #DMD ! MUR ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR’ 


MOV #DMD 'MUR'!DBEN.RMMR1(RO) :LOAD RMMR1 
DEC R2 
BNE 110$ 

STEP THROUGH SEEK WAIT LOOP (6 CLOCKS) 2 TIMES 

120$: rs 
MOV ADMD 'MUR!DBEN!DBCK,RMMR1(RO) —«: LOAD _RMMR1 
mov #DMD MUR! DBEN, RMR (RO) ;LOAD RMMR1 
BNE 120$ 

;SET SEEK INCOMPLETE ERROR TO CAUSE ABORT 
MOV ADMD !MUR!DBEN!MSER,RMMR1(RO) = LOAD RMMR1 


CLOCK THE SEQUENCER THROUGH ITS TEST FOR ABORT (2 CLOCKS) 
MOV #2,R2 


130$: 
MOV ADMD !MUR ! DBEN!MSER ! DBCK ,RMMR1 (RO) :LOAD RMMR1 
MOV #DMD !MUR !DBEN!MSER, “RMMR1 (RO) ;LOAD RMMR1 


DEC 
BNE 130$ 
;ABORT EBL SHOULD NOW BE ACTIVE - USE THE MAINTENANCE REGISTER TO 
:FORCE BIT ctocks AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS 
a 16. ,R2 :MAXIMUM NUMBER OF BIT CLOCKS 
MOV ADMD 'MUR'MOC!DBEN!MDF '!MCLK,RMMR1(RO) = LOAD RMMR1 
MOV #DMD ‘MUR 'MOC 'DBEN' MDF .RMMR1 (RO) :LOAD 
MOV RMMR1 (RO) , SBDDAT :STORE RMMR1 AT SBDDAT 


BIC #*CEBL , SBDDAT 
140$ 


SEQ 0205 


CZRMPAO RMOS/3/2 DSKLS TST 1 
T DAT 


0752 
5700 050764 
57 
5702 
5703 
5704 050772 
5705 050772 
050776 


051000 
5706 051002 


109 
5713 051030 
5714 
5715 
5716 051032 
5720 051054 
5721 


5722 
5723 051062 


051070 
5724 051074 
051074 
5725 051102 
726 051110 
5727 051112 
5728 051116 
5729 051120 
5730 051124 
5731 051132 
5732 051136 
5733 051144 
5734 051146 
5735 051150 
051150 
5736 
5737 
5738 051154 
5739 051160 
51160 
5740 051166 
5741 051174 





012737 
004777 


016037 
37 


A COMMAND TESTS (2) 


020000 
001136 
000024 


050772 


055370 


000000 
000000 
055512 


041401 
000000 
000000 
000071 
000310 
130436 
000024 
137777 
001530 
130410 
040000 
001140 
000024 


130360 
000021 


141401 
041401 
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001140 
001136 
001124 


000034 
000006 


000024 
000024 


DEC R2 
BNE 135$ ;CONTINUE BIT CLOCKS IF COUNT NOT 0 
MOV #EBL , $GDDAT 
MOV RO, S$BDADR ‘ 
ADD #RMMR1 , SBDADR ‘ 
140$: MOV #150$,$LPERR 7 CHANGE LOOP ON ERROR ADDRESS 
;VERIFY DATA COMMAND ABORTS DURING OFFSET IF ON CYLINDER LATCH 
{DOESNT RESET 
Som PC,SETVV :GO SET VOLUME VALID 
BR 160$ BRANCH TO 160$ IF NO ERROR , 
BR 2208 
LOAD TRACK. SECTOR, AND CYLINDER ADDRESSES 
1 Py i 
MOV #0,RMDC (RO) ;LOAD RMDC 
MOV #0.RMDA(RO) [LOAD RMDA 
JSR PC. SETOM :GO SET OFFSET MODE 
BR 170$ :BRANCH TO 170$ IF NO ERROR 
BR 2208 
ENABLE DEBUG CLOCK AND LOAD DATA COMMAND 
"MOV ADMD !MUR ! MOC ! DBEN, RMMR1 (RO) ZLOAD RMMR1 
MOV #O.RMER1(RO) LOAD RMERT 
MOV #O.RMER2(RO) — :LOAD RMER2 
MOV #RD!GO,RMCS1(RO)- ;LOAD RMCS1 


WAIT FOR RUN AND GO TO SET 
MOV 


#200. ,WATCH 3SET WATCHDOG TIMER VALUE 


1808 JSR PC, aCLOCK sSTART THE CLOCK 
MOV RMMR1 (RO) , SBDDAT ;STORE RMMR1 AT SBDDAT 
BIC #*CRG, SBDDAT 
BNE 190$ 
TST WATCH 
BNE 180$ 
JSR C,asT ;STOP THE CLOCK 
MOV ARG, SGDDAT 
MOV RO, $GDDAT 
ADD 1, $8DADR 
EMT 
BR 220$ 
190$: 
JSR PC, a@STOP zSTOP THE CLOCK 


STEP COMMAND SEQUENCER TO ON LATCH TEST AT LOCATION 156 (17 CLOCKS) 
200$: = 


#DMD ! MUR ! MOC ! DBEN! DBCK , RMMR1 (RO) 
SO AR AO “OREN. ~RMMRI (RO) 


;LOAD RMMR1 
LOAD RMAR1 


SEQ 0206 


‘ee ey Wee er Oa oa POO aT pikes Ee ie i ee i et OR RG a — 


Bj 
CZRMPAO A gh DSKLS TST : MACRO VO03.01 11-APR-80 13:58:55 PAGE 12-118 
T117 DATA COMMAND TESTS (2) 


o742 051176 001370 BNE 2008 
5744 ;DROP ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST 
5745 TAT LOCATION 166 

$746 051200 012760 041001 000024 MOV ADMD 'MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 

2747 051205 012760 041401 000024 MOV #DMD ' MUR | DBEN'MOC ,RMMR1 (RO) ;LOAD RMMR1 

5749 ;MOVE SEQUENCER TO SET OPI AND EBL (39 CLOCKS) 

5750 051214 012702 000047 MOV #39. .R2 

5751 051220 2108: 

051220 012760 141401 000024 MOV #DMD ! MUR! DBEN! MOC ! DBCK,RMMR1 (RO) :LOAD RMMR1 
5752 051226 012760 041401 000024 MOV ADMD 'MUR | DSEN! MOC .RMMRI (RO) ZLOAD RMMRI 
$753 051234 005302 DEC R2 
5754 051236 001370 BNE 210$ 
5756 ;VERIFY OPI IS SET 
5757 051240 016037 000014 0(1142 MOV RMER1 (RO) , SBDDAT :STORE RMER? AT $8DDAT 
5758 051246 042737 157777 001142 BIC #*COPI, SBDDAT 

|  §759 051254 001011 BNE 220$ 
5760 051256 012737 020000 001140 MOV #OPI ,$GDDAT 
5761 051264 010037 001136 MOV RO, $8DADR 
5762 051270 062737 000014 9001136 ADD #RMER1, $BDADR 
5763 051276 106277 EMT 77 
5764 051300 012737 051306 001124 220$: MOV #230$,$LPERR | ; CHANGE LOOP ON ERROR ADDRESS 
| 2766 ; VERIFY DATA COMMAND ABORTS DURING OFFSET WAIT LOOP 
°768 051306 230S: 
051306 004737 055370 JSR PC, SETVV :GO SET VOLUME VALID 
051312 000403 BR 240$ [BRANCH TO 240$ IF NO ERROR 
_ 051314 104000 EMT 5 
sre 051316 000137 051726 JMP 310$ 
5771 :LOAD SECTOR, TRACK AND CYLINDER ADDRESS 
5772 051322 2408: 
5773 051322 012760 000000 000006 MOV #0. RMDA(RO) ;LOAD RMDA 
5774 051330 012760 000000 000034 MOV #0. RMDC (RO) SLOAD RMDC 
5775 051336 004737 055512 JSR PC. SETOM [GO SET OFFSET MODE 

051342 000402 BR 2453 “BRANCH TO 245$ IF NO ERROR 

051344 104000 EMT 
5776 051346 000567 BR 3108 
5778 ;ENABLE DEBUG CLOCK AND LOAD DATA COMMAND 
5779 051350 5458: 

051350 012760 041401 000024 MOV ADMD ! MUR! MOC ! DBEN, RMMR1 (RO) ZLOAD RMMR1 
5780 051356 012760 000000 000014 MOV #0,RMER1(RO) ;LOAD RMERT 
5781 051364 012760 000000 000042 MOV #0,RMER2(RO)  :LOAD RMER2 
3782 051372 012760 000071 MOV #RD!GO,RMCS1(RO)” [LOAD RMCS1 
5784 ZWAIT FOR RUN AND GO TO SET 
5785 051400 012737 000310 001530 MOV #200. ,WATCH ySET WATCHDOG TIMER VALUE 

051406 004777 130120 JSR PC, acLOCk TSTART THE CLOCK 
5786 051412 250$: 

051412 016037 000024 001142 MOV RMMR1 (RO), SBDDAT :STORE RMMR1 AT S$BDDAT 
5787 051420 042737 137777 001142 BIC #*CRG, SBDDAT 
5788 051426 001017 BNE 260$ 
5789 051430 005737 001530 TST WATCH 





SEQ 0207 


T117 DATA COMMAND 


EY 


5812 051532 012702 


536 
051536 012760 
5814 051544 012760 


2 005302 
5816 051554 001370 
5819 051556 012760 
051564 012702 
5823 051570 
051570 
5824 051576 012760 
051604 005302 
5826 051606 001370 


005302 
5836 051640 001370 
5838 


5840 051642 012702 
5841 051646 
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TESTS (2 


130072 
040000 
001136 
000024 


130042 
000021 


141401 
041401 


041001 
041401 


000045 


141401 
041401 


000020 


C1 
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001140 
001136 


000024 
000024 


000024 
000024 


000024 
000024 


000024 


000024 
000024 


000024 


000024 
000024 


BNE 250$ 
JSR PC,aSTOP ;STOP THE CLOCK 
MOV #RG,SGDDAT 
MOV RO, DR 
ADD #RMMR 1, SBDADR 
EMT 275 
BR 310$ 
260$: 
JSR PC, aSTOP sSTOP THE CLOCK 
;STEP SEQUENCER TO LOCATION 156 (17 CLOCKS) 
#17. ,R2 
2708: 
ADMD : MUR: MOC : DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 
44 “te !MUR ' MOC ! DBEN, RMMR1 (RO) ;LOAD RMMR1 
BNE 270$ 


:DROP ON a neers TO RESET LATCH, SET ON CYLINDER TO PASS TEST 


SAT LOCATION 
MOV #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
MOV #DMD ! MUR ! MOC ! DBEN, RMMR 1 (RO) ;LOAD RMMR1 


:MOVE — TO LOCATION 174 (37 CLOCKS) 


280$: 
MOV #DMD ! MUR ! MOC ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
bee “+ phichesohatneed meme - RMR} (RO) ;LOAD RMMR1 
BNE 280$ 
;DROP ON CYLINDER TO RESET LATCH, LEAVE a ote kena RESET 
MOV #DMD!MUR'!DBEN,RMMR1(RO) :LOAD RMMR1 


;STEP SEQUENCER THROUGH OFFSET WAIT LOOP TWICE (7 CLOCKS) 
"Mov ADMD ! MUR ! DBEN! DBCK ,RMMR1 (RO) LOAD RMMR 1 


MOV #DMD ! MUR! DBEN,RMMR1(RO) ;LOAD 


:SET ee ——— TO CAUSE ABORT CONDITION 

#DMD ! MUR! DBEN! MDF ,RMMR1 (RO) ;LOAD RMMR1 
sSTEP SEQUENCER THROUGH ITS TEST FOR ABORT (2 CLOCKS) 
3008 MOV #2,R2 


MOV = #DMD ! MUR ' DBEN MDF ! DBCK , RMMR1 (RO) LOAD RMMR1 
MOY DMD MUR !DBEN! MDF . -RMPAR I (RO) LOAD RMAR1 
BNE 3008 


sABORT EBL SHOULD NOW BE ACTIVE - USE THE MAINTENANCE REGISTER TO 
sFORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS 
305s: 16. ,R2 MAXIMUM NUMBER OF BIT CLOCKS 
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iP OP aa So3 
hi 1117s DATA COMMAND T (2) SEQ 0209 
051646 012760 045501 000024 MOV #DMD ! MUR! MOC! DBEN! MDF !MCLK,RMMR1 (RO) :LOAD RMMR1 
|  §842 051654 012760 041501 000024 MOV #DMD 'MUR' MOC | DBEN'MDF .RMMRT(RO) ;LOAD RMMRT 
5843 051662 016037 000024 001142 MOV RMMR1 (RO), SBDDAT zSTORE RMMR1 AT $BDDAT 
5844 051670 042737 157777 001142 BIC #*CEBL , SBDDAT 
2845 051676 001013 BNE 310$ 
| 5847 051700 005302 DEC R2 
5848 051702 001361 BNE 305$ ;CONTINUE BIT CLOCKS IF COUNT NOT 0 
5849 0517046 012737 020000 001140 MOV #EBL ,SGDDAT 
5850 051712 010037 001136 MOV RO, $BDADR 
5851 051716 062737 000024 001136 ADD #RMMR 1, SBDADR 
385¢ 051724 104271 EMT 271 
385% 051726 012737 051734 001124 310$: MOV #320$.$LPERR | ;CHANGE LOOP ON ERROR ADDRESS 
r+ t3 ; VERIFY THAT DATA COMMAND ABORTS DURING SECTOR WAIT LOOP AT LOCATION 179 
$858 051734 3208: 
051734 004737 055370 JSR PC, SETVV :GO SET VOLUME VALID 
051740 000403 BR 330$ [BRANCH TO 330$ IF NO ERROR 
051742 104000 EMT 
5859 051744 000137 052372 JMP 420$ 
5861 “ENABLE DEBUG CLOCK AND LOAD DATA COMMAND 
5862 051750 330s: 
5863 051750 012760 041401 000024 MOV ADMD !MUR 'MOC ! DBEN, RMMR1 (RO) ZLOAD RMMR1 
5864 051756 012760 000000 000014 MOV #0,RMER1 (RO) ;LOAD RMER1 
5865 051764 012760 000000 000042 MOV #0. RMER2 (RO) [LOAD RMER2 
5866 051772 012760 000000 000006 MOV #0,RMDA (RO) ZLOAD RMDA 
5867 052000 012760 000000 000034 MOV #0,RMDC (RO) ZLOAD RMDC 
012760 000071 000000 MOV #RD !GO,RMCS1 (RO) ;LOAD RMCS1 
5870 zWAIT FOR RUN AND GO TO SET 
5871 052014 012737 000310 001530 MOV #200. ,WATCH zSET WATCHDOG TIMER VALUE 
052022 004777 127504 JSR PC, aCLOCk ZSTART THE CLOCK 
587? 052026 3408: 
052026 016037 000024 001142 MOV RMMR1 (RO), SBDDAT ;STORE RMMR1 AT $BDDAT 
052034 042737 137777 001142 Bic #°CRG, SBDDAT 
5874 052042 001017 BNE 350$ 
5875 052044 005737 001530 TST WATCH 
5876 052050 001366 BNE 340$ 
5877 052052 004777 127456 JSR PC ,aSTOP zSTOP THE CLOCK 
5878 052056 012737 040000 001140 MOV #RG, $GDDAT 
010037 001136 MOV RO, $BDADR 
5880 052070 062737 000024 001136 ADD ARMMR 1, SBDADR 
5881 052076 104275 EMT 275 
5882 052100 000534 “a @R 420$ 
$883 052102 3508: 
052102 004777 127426 JSR PC, aSTOP :STOP THE CLOCK 
;STEP SEQUENCER TO LOCATION 156 (17 CLOCKS) 
$886 052106 012702 000021 V #17.,R2 
5887 052112 360$: 
052112 012760 141401 000024 MOV #DMD ! MUR 'MOC '! DBEN! DBCK, RMMR1 (RO) ;LOAD RMMR1 
5888 052120 012760 041401 000024 MOV ADMD ' MUR !MOC ' DBEN, RMMR1 (RO) 7LOAD RMMR1 
5889 052126 005302 DEC 


R2 
5890 052130 001370 BNE 360$ 


CZRMPAQ RMOS/3/2 DSKLS TST 1 MACRO V03.01 11-APR-80 13:58:55 PAGE 13-121 


1117 DATA COMMAND TESTS (2) SEQ 0210 





5891 
5892 :DROP_ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST 
5893 :AT LOCATION 166 
ry do 052132 012760 041001 000024 MOV #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
| 5896 sMOVE SEQUENCER TO SECTOR WAIT (34 CLOCKS) 
5897 052140 012702 000042 MOV oe 
5898 052144 3708: 
052144 012760 141401 000024 MOV ADMD ! MUR! MOC ! DBEN! DBCK ,RMMR1 (RO) ;LOAD RMMR1 
5899 052152 012760 041401 000024 MOV ADMD ! MUR ! MOC ! DBEN, RMMR1 (RO) LOAD RMMR1 
5900 052160 00530 DEC R2 
2903 052162 00137 BNE 370$ 
5903 STEP THROUGH SECTOR ate LOOP TWICE AND VERIFY SEARCH IS ENABLED 
5904 ;DURING THE LOOP (6 CLOCKS) 
5905 052164 012702 000006 MOV #6. ,R2 
5906 052170 380$: 
052170 012760 141401 000024 MOV #DMD ! MUR ! MOC ! DBEN! DBCK , RMMR1 (RO) ;LOAD RMMR1 
5907 052176 012760 041401 000024 MOV #DMD ! MUR ! MOC ! DBEN,, RMMR1 (RO) ;LOAD RMMR1 
5908 052204 016037 000024 001142 MOV RMMR 1 (RO) , SBDDAT STORE RMMR1 AT $BDDAT 
5909 0522 042737 173777 001142 BIC #*CESRC ,SBDDAT 
5910 052220 001403 BEQ 390$ 
5911 052222 5302 DEC R2 
5912 052224 001361 BNE 380$ 
5913 0522 12 BR 400$ 
5914 0522 012737 004000 001140 390$: MOV MESRC ,$GDDAT 
0522 010037 001136 MOV RO, $BDADR 
5916 052242 062737 000024 001136 ADD #RMPR1 , SBDADR 
5917 052250 104301 EMT 01 
4 : 052252 00044 BR 420$ 
5920 SET DRIVE FAULT TO CAUSE ABORT CONDITION 
5921 052254 400$: 
052254 012760 041501 000024 MOV #DMD ! MUR! MOC! DBEN!MDF ,RMMR1(RO) ;LOAD RMMR1 
5923 sSTEP SEQUENCER THROUGH ITS TEST FOR ABORT (2 CLOCKS) 
5924 052262 012702 000002 MOV #2,R2 
5925 052266 4108: 
052266 012760 141501 000024 MOV ADMD ! MUR! MOC ! DBEN! MDF ! DBCK ,RMMR1 ry ;LOAD RMMR1 
5926 052274 012760 041501 000024 MOV #DMD!MUR'MOC 'DBEN!MDF >RMMR1(RO) ;LOAD RMMR1 
5927 052302 005302 DEC Re 
3956 052304 001370 BNE 410$ 
5930 sABORT EBL SHOULD NOW BE ACTIVE - USE THE MAINTENANCE REGISTER TO 
5931 :FORCE BIT CLOCKS AND VERIFY THAT EBL SETS WITHIN 16 BIT CLOCKS 
2o3% 636306 012702 000020 6158: MOV ee : MUM NUMBER OF BIT CLOCKS 
052312 012760 045501 000024 MOV #DMD ! MUR! MOC ! DBEN! MDF !MCLK ,RMMR1 (RO) LOAD RMMR1 
ooee 052320 012760 041501 000024 MOV #DMD 'MUR' MOC! DBEN' MDF |RMMR1(RO) :LOAD RMMR1 
5936 VERIFY EBL IS SET 
5937 052326 016037 000024 001142 MOV RMMR1 (RO) , SBDDAT STORE RMMR1 AT SBDDAT 
5938 052334 042737 157777 001142 BIC #*CEBL ,$BDDAT 
44 052342 001013 BNE 420$ 
5941 052344 005302 DEC R2 . 
5942 052346 001361 BNE 415$ CONTINUE BIT CLOCKS IF COUNT NOT 0 


T1117 


5943 052350 
5944 052356 
5945 052362 
eac8 052370 
5948 052372 
5949 

5950 


052372 
052412 


5 
5956 052420 


5966 052472 


5970 052476 


2 
5973 052504 
gore 052510 


5982 052524 


ae 052530 
5986 052530 
5987 052536 





012737 


012737 


012737 
013737 
112737 
012737 
0 

012737 


004737 


112737 


004737 
000137 


013760 
013760 
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020000 
001136 
000024 


103712 


052514 


000000 


052514 
053600 


055370 


053416 


001414 
001442 
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001140 
001136 


001226 


001442 
001414 
001414 


001440 


001412 


001440 


000006 
000034 


MOV #EBL, os aad 
RO, $BDAD 


MOV 
ADD ARMMR | “SBDADR 
EMT 271 
4208: sEND OF TEST 
JD RRUO I IOIUIIISIOIIIIIIOISISISISIIISIIIIISIIOIIIIIIUIIIIIOUIOIII III IDE Ett 
;*TEST 120 DATA COMMAND TESTS (3) 
DOORS SIIOISIDIIIOISISIISISISIIIISIIIIIIOIIIIIOIUISIIIOIDIIUIISIIIIDISIUIIOIIDI OD OOS 
TS1120: 
ae :SCOPE CALL 
MOV ASTACK , SP ;LOAD THE STACK POINTER 
MOV $BASE ,RO :RO = UNIBUS ADDRESS 
MOV TSTQUE ,R1 :R1_= POINTER TO DEVICE 


MOV #120, $TESIN >;SET TEST NUMBER IN APT MAIL BOX 


VERIFY THE TAG BUS DURING DATA COMMAND 
:FIRST PART USES OFFSET FORWARD 


;LOAD TEST PARAMETERS IN REGISTER OUTPUT BUFFER 
MOV #822. ,RMDCO LAST CYLINDER 
MOV LSTRK ,RMDAO 3 
MOVB #29. ,RMDAO LAST SECTOR 


MOV #OF D,RMOFO FORWARD OFFSET 
MOV ARD.'GO,RMCS10 ;READ DATA 
MOV #~256. ,RMWCO WORD COUNT 
MOV #BUFFER,RMBAO BUFFER ADDRESS 


EXECUTE COMMAND AND VERIFY TAG BUS USING SUBROUTINE 
JSR PC,10$ 


: SECOND PART USES OFFSET REVERSE 

LOAD TEST PARAMETERS IN REGISTER OUTPUT BUFFER 
MOVB #0 ,RMOFO REVERSE OFFSET 

:EXECUTE COMMAND AND VERIFY TAG BUS USING SUBROUTINE 
JSR PC,10$ 


JMP 300$ 


5$: 


FARRAR ERE RARER EEE EEE EERE ERE EEE KEKE EERE 


? SUBROUT INE USED DURING TEST 


FAERIE KERR 


10$: 
JSR PC,SETVV 7GO SET VOLUME VALID 
~ 20$ ;BRANCH TO 20$ IF NO ERROR 
JMP 160$ 


;LOAD TRACK, SECTOR AND CYLINDER ADDRESS, LOAD OFFSET 


MOV RMDAO,RMDA(RO) ;LOAD RMDA 
MOV RMDCO,RMDC(RO) ;LOAD RMDC 


SEQ 0211 


CZRMPAQ RMOS/3/2 DSKLS TST 1 
T120 DATA COMMAND TESTS (3) 


5988 052544 013760 001440 
5989 052552 004737 055512 
052556 000403 
052560 104000 
5990 052562 000137 053416 
5991 
5992 
5993 052566 
5994 052566 013760 001410 
5995 052574 013760 001412 
5 
5998 052602 012760 041401 
5999 052610 012760 000000 


6000 052616 012760 000000 
one 052624 013760 001406 


6003 
6004 052632 012737 000310 
640 004777 126666 


2644 016037 000024 
6006 052652 042737 137777 
6007 052660 001020 


6008 052662 005737 001530 
6009 052666 001366 
6010 052€70 004777 126640 


040000 
6012 052702 010037 001136 
6013 052706 062737 000024 


6015 052716 000137 053416 
6016 a25-55 


052722 126606 
6017 052726 012704 053420 
6018 
6019 
6020 052732 012705 000021 
6021 052736 

052736 016037 000040 
6023 
6024 052744 013737 001142 
6025 


6026 
6027 052752 042737 171777 
6028 052760 006000 


6032 052770 3 5 

6033 052776 012437 001140 
6034 053002 053737 001442 
6035 053010 023737 001140 
6036 053016 001011 
6037 053020 
6038 053020 


012760 141401 
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000032 MOV RMOFO,RMOF (RO) ;LOAD RMOF 
JSR PC,SETOM ‘GO SET OFFSET MODE 
BR 30$ ‘BRANCH TO 30$ IF NO ERROR 
JMP 160$ 
ghOAD BUFFER ADDRESS AND WORD COUNT 
000002 “Mov RMWCO,RMWC(RO) ;LOAD RMWC 
000004 MOV RMBAO.RMBA(RO) LOAD RMBA 


; ENABLE + pe CLOCK AND LOAD DATA COMMAND 


000024 !MUR! MOC ! DBEN,RMMR1 (RO) LOAD RMMR1 
000014 MOV #0..RMER1 (RO) ;LOAD RMER1 

000042 MOV #0,RMER2 (RO) ;LOAD RMER2 

000000 MOV RMCS10,RMCS1(RO) LOAD RMCS1 


:WAIT FOR RUN AND GO TO SET 


001530 MOV #200. ,WATCH ;SET WATCHDOG TIMER VALUE 
<8 JSR PC, aCLOCK 7START THE CLOCK 
001142 MOV RMMR1 (RO) , SBDDAT ;STORE RMMR1 AT $BDDAT 
001142 BIC #*CRG, SBDDAT 
BNE 50$ 
TST WATCH 
BNE 40$ 
JSR PC,a@STOP zSTOP THE CLOCK 
001140 MOV #RG,SGDDAT 
MOV RO, $8DADR 
001136 ADD #RMMR 1, SBDADR 
EMT 275 
JMP 160$ 
50$: 


JSR PC,a@STOP :STOP THE CLOCK 
MOV #200$,R4 7R4 = TABLE POINTER 


STEP SEQUENCER TO_HEAD SEQUENCE AT ont t have (17 CLOCKS) 
MOV 3R5 = CLOCK 


60S: Sel 
001142 MOV RMMR2 (RO) , SBDDAT ;STORE RMMR2 AT $BDDAT 


DO IISIDIIOIIOIIIOIOIIOI IIIS IIIIIDIIDIDIOIIOIIOIOIIIIIOI II III ini tit 


001174 MOV SBDDAT,$TMPO —; IF_CC AND CH ARE SET AT THE SAME TIME 
; STHE ECO TO THE CS BOARD IS IMPLEMENTED. 

001174 - or #*C<CC!CH>, STMPO :SAVE CC_AND CH BITS 
001174 CMP WCC!CH,STMPO =; ARE CC AND CH SET 

BEQ 65$ YES, BRANCH TO NeW. LOCATION 

TE a 2 Re Ebi o§ Rate ote Bare ed we te wn ANE 

001142 BIC #RQA!ROB! TST , SBDDAT 

MOV (R4)+,$GDDAT 
001140 BIS RMDCO, SCDDAT :OR CYLINDER ADDRESS 
001142 CMP SGDDAT , SBDDAT 

a BNE 70$ :BRANCH IF TAG BUS WRONG 

000024 "Moy #DMD !MUR! MOC ! DBEN! DBCK, RMMR1 (RO) :LOAD RMMR1 


SEQ 0212 


T120 


6039 053026 


6054 

6055 053074 

6056 053100 
053100 

6057 

6058 

6059 053106 

6060 


6066 
6067 053140 
6068 


6069 
6070 053140 


6075 053164 
6076 


6077 
6078 053166 


05 
6083 053220 


5 
6086 053222 
6087 053222 
6088 053226 


6090 
pred. 053232 


6094 053242 


012760 
012760 
012705 
016037 


013737 


052737 
032737 
001406 
042737 
052737 
000404 


113703 
050337 


023737 
001013 
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041401 


001136 
000040 


041001 
041401 


000045 
000040 


001142 
171777 


006000 
000002 
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000024 
001136 
000024 
000024 
001142 


001174 


001174 
001174 


001142 


001142 


bee ee ;LOAD RMMR1 
BNE 60$ 
BR 80$ 
708: MOV RO, $BDADR 
ADD ARMMR2 , SBDADR 
EMT 276 
BR 160$ 


:DROP_ON CYLINDER TO RESET LATCH, SET ON CYLINDER TO PASS TEST AT 
;LOCATION 166 


80$: 
MOV #DMD !MUR!DBEN,RMMR1(RO) ;LOAD RMMR1 
MOV #DMD MUR ‘MOC ! DBEN, RMMR1 (RO) ;LOAD RMMR1 


STEP — TO_END OF OFFSET AT LOCATION 174 (37 CLOCKS) 
908 #37.,R5 RELOAD CLOCK COUNT 


MOV RMMR2 (RO) , SBDDAT STORE RMMR2 AT SBDDAT 


LTR EEE EERE EERE EEE EEE REE ERE EEK KKK 


MOV $BDDAT , $TMPO :1F CC AND CH ARE SET AT SAME TIME 


THE ECO TO THE CS BOARD IS IMPLEMENTED. 


BIC #*C<CC!CH>, STMPO —_ CC AND CH BIiS 
CMP = eet fl wis CC AND CH SET 


SUB #2,R4 ;ADJUST THE TABLE ADDRESS 
928 115$ :TO OTHER LOCATION 


SD RRR EKER REE ERE REE KEKE EEE 


BIC cory eee $BDDAT 

MOV (R4) ,SGDDAT 

BIT #CH, (R4) 

BEQ 110 :BRANCH IF CONTROL/HEADER NOT ON 
BIT ACC, (R4) 


BEQ 100$ ;BRANCH IF HEADER TAG 
;CONTROL TAG SHOULD BE ON-SETUP EXPECTED OFFSET 

BIS #8B03,$GDDAT | ;ASSUME OFD IS NOT SET 

BIT #OFD,.RMOF O 

BEQ 95$ 


BIC #8B03,$GDDAT 
BIS #BB02 . $GDDAT 
95$: BR 110$ 
iOneeR TAG SHOULD BE ON - SETUP EXPECTED TRACK ADDRESS 


MOVB RMDAO+1 ,R3 GET TRACK 
BIS R3,$GDDAT 


COMPARE EXPECTED AND RECEIVED TAG BUS DATA 


110$ 
CMP SGDDAT , SBDDAT 
BNE 120$ 


sRESET BUS BIT 3 - DIRECTION IS REV 


115$: 





SEQ 0213 


6103 053304 
6104 
6105 
6106 
6107 053306 
6108 053306 
6 053314 


4 


et ed ed ed od — J 


053334 
053342 


ARAAAAAAAASM BAAS 
tated abahabataBanh * att asf ond and 


Mnror 


6124 
6125 053350 
6126 053356 
612 


6134 053414 
6135 
6136 053416 
6137 


6149 053442 
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DATA COMMAND TESTS 


012760 
012760 


012705 
016037 


042737 
012737 


023737 
00101 





ST 1 
TS (3) 


041001 
041401 


000010 
000040 


171777 
006000 


001140 


141401 
041401 


001136 
000040 
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000024 
000024 


001136 


000024 
000024 


001142 


001136 


MOV #DMD !MUR ! MOC ! DBEN! DBCK,RMMR1 (RO) :LOAD RMMR1 
MOV ADMD ' MUR ' MOC | DBEN, RMMRi (RO) :LOAD RMMR1 
ADD #2,R4 :MOVE TABLE POINTER 
DEC R5 *DECREMENT CLOCK COUNT 
BNE 90$ 
BR 130$ 
120$: MOV RO, $BDADR 
ADD 2, $BDADR 
EMT 6 
BR 160$ 


sDROP ON CYLINDER TO RESET LATCH, RAISE ON CYLINDER TO PASS TEST AT 
i— LOCATION 175 


MOV ADMD !MUR'DBEN,RMMR1(RO) ;LOAD RMMR1 
MOV ADMD ! MUR ! MOC ! DBEN,, RMMR1 (RO) LOAD RMMR1 


:STEP SEQUENCER TO SECTOR WAIT LOOP (8 CLOCKS) 
MOV R5 


140$: ns 
MOV RMMR2 (RO), SBDDAT :STORE RMMR2 AT $BDDAT 


JOSS IOI IUISISIOISIDISIIISISIIISISIIOISIIOIOIIOIOIOIIOISIUOIOIO IUD III II OD 
: BIC #RQA!RQB! TST, $BDDAT 
THE FOLLOWING CODE WAS ADDED 
:TO ALLOW THE PROGRAM TO RUN WITH 
:OR WITHOUT ECO TO THE CS BOARD. 


BIC #*C<CC!CH>, $SBDDAT SAVE CC _AND CH BITS 
ACC!CH,$GDDAT ;GET EXPECTED DATA 


V 
FF ERE REE 


CMP SGDDAT,$BDDAT ;GOOD DATA SAME AS LAST CMP 
150$ ;BRANCH IF ERROR 

MOV ADMD ! MUR! MOC ! DBEN! DBCK ,RMMR | (RO) ;LOAD RMMR1 

MOV tg !MUR ! MOC ! DBEN, RMMR1 (RO) LOAD RMMR1 


DEC 
BNE 140$ 
BR 160$ 

150$: MOV RO, $BDADR 
ADD #RMMR2 , SBDADR 
EMT 276 


160$: RTS PC 
SORE OF TAG BUS CONTROL AND DATA VALUES 


«WORD 1777 LOCATION 0 

-WORD 1777 LOCATION 25 

WORD 1777 ZLOCATION 26 

«WORD 1777 LOCATION 128 
WORD 777 LOCATION 129 
-WORD 1777 sLOCATION 130 
-WORD CC LOCATION 144 
«WORD (CC LOCATION 145 
«WORD CC!TAG sLOCATION 146 
«WORD (CC!TAG LOCATION 147 


SEQ 0214 


CZRMPAO RMO5/3/2 DSKLS TST 1 
T120 DATA COMMAND TESTS (3) 


6150 053444 


6188 
ot 44 053562 


1 
6195 053576 
6196 
6197 053600 
6198 





2 7 
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300$: 


CC! CH 

CC!CH!TAG 
CC!CH! TAG 
CC!CH! TAG 
CC!CH!TAG 
CC!CH! TAG 


SEE POE AAADI MANNA E- 
MEW SO OONA SW OWO0 


SLOCATION 175,ETC 


END OF TEST 


SEQ 0215 





Soavteunhuv2e 
OWOWNAUSWN HOO ODNAUS WH 


SS3Ssss33s 


0 6 
053702 


053722 
053722 


05 
054012 
054016 


000137 
012737 


013746 
104405 


104401 
000421 


013746 


CZRMPAQ RMOS/3/2 DSKLS TST 1 
END OF SUB=-PASS ROUTINE 


001462 
000002 
001462 


007152 
001464 


- 
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-SBTTL END OF SUB=PASS ROUTINE 





- THIS IS_TRKE END OF SUB=PASS ROUTINE. THIS ROUTINE IS USED TO 


; TERMINATE THE OPERATION OF THE 


;SELECT THE NEXT DEVICE FOR TEST. 


CURRENT DEVICE UNDER TEST AND 
IF _ THERE NO MORE DEVICES 


ARE 
:19 TEST, EXIT IS MADE TO *$EOP" ROUTINE. OTHERWISE, RETURN 


S MADE TO ‘READY’ ROUTINE. 


SEOSP: SCOPE 
MOV TSTQUE ,RO :GET POINTER TO TSTQUE 
ADD a SADJUST POINTER TO NEXT DEVICE 
MOV RO, TSTQUE SSAVE POINTER TO TSTQUE 
TST (RO) ZANY MORE DEVICES FOR TEST ? 
BEQ 1$ ‘BR IF NO 
JMP READY :YES, JUMP TO READY 
001462 18: MOV ATSTQUE+2, TSTQUE s INITIALIZE POINTER TO FIRST DEVICE IN 
:TEST QUE TABLE 
.SBTTL END OF PASS ROUTINE 
FREER AERA REEREREEEEEEREEREREEEEEEEEEEEEEKEEEKEEEKKEEE 
; INCREMENT THE PASS NUMBER (S$PASS) 
TYPE ‘END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY'’ 
WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 
:*IF THERES A MONITOR GO TO IT 
:*IF THERE ISN'T JUMP TO READY 
SEOP: 
NOP 
CLR $TSTNM z:ZERO THE TEST NUMBER 
CLR STIMES :27ER O THE NUMBER OF ITERATIONS 
INC $PASS i INCREMENT THE PASS NUMBER 
001230 BIC #100000, $PASS ON*T ALLOW A NEG. NUMBER 
DEC (PC)+ 3 
SEOPCT: .WORD 
BGT SDOAGN 77 YES 
MOV (PC)+,a(PC)+ § ;;RESTORE COUNTER 
SENDCT: .WORD 1 
SEOPCT 
TYPE ,65$ rz TYPE ASCIZ STRING 
BR 64$ *:GET OVER THE ASCIZ 
13658: -ASCIZ. <12><15>/END PASS’ #/ 
MOV $PASS ,-(SP) i: SAVE SPASS FOR TYPEOUT 
TYPE PASS NUMBER 
TYPDS ‘ 7:GO TYPE=-DECIMAL ASCII WITH SIGN 
TYPE ,67$ ::TYPE ASCIZ STRING 
BR 66$ *GET OVER THE ASCIZ 
i378: -ASCIZ / TOTAL ERRORS SINCE LAST REPORT / 
MOV SERTTL,-(SP) —;;SAVE SERTTL FOR TYPEOUT 
OTAL NUMBER OF ERRORS 
TYPDS 3560 TYPE=-DECIMAL ASCII WITH SIGN 
TYPE SCRLF 7: TYPE CARRIAGE RETURN, LINE FEED 
CLR $ERTTL [CLEAR ERROR TOT 
$GET42: MOV av42,R 7:GET MONITOR ADDRESS 





SEQ 0216 
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END OF PASS ROUTINE SEQ 0217 
054022 001405 BEQ $DOAGN ;;BRANCH_IF NO MONITOR 
054024 000005 RESET :-CLEAR THE WORLD 
054026 004710 SENDAD: JSR PC, (RO) ::GO TO MONITOR 
054030 000240 NOP 2:SAVE ROOM 
054032 000240 NOP ae 
054034 000240 73ACT11 
054036 SDOAGN: 

054036 000137 JMP a(PC)+ 3 sRETURN 
054040 007152 SRTNAD: .WORD READY 
054042 377 377 000 S$ENULL: y =1,°1,0 3¢NULL CHARACTER STRING 


21 








CZRMPAQ RMOS/3/2 DSKLS TST 1 
SUBROUT INES 


054 414 
054050 032777 020000 
654060 000137 054662 
104401 
2 01 
23 054074 013746 
054100 104403 
003 


‘ 
24 ' 
25 054104 016000 000026 
26 054110 042700 177740 
27 054114 012737 054745 
28 054122 022700 000024 
34 054126 001414 
31 054130 012737 054740 
32 054136 622700 000025 
7 054142 001406 
35 054144 012737 054752 
36 000027 


7 004 
38 054160 104401 054734 


104401 

46 054206 013746 
954212 104403 
003 


15 000 
47 054216 005037 054670 
48 054222 113737 001130 
49 934230 001406 





M1 
MACRO VO3.01 11-APR~80 13:58:55 PAGE 14 


» SBTTL SUBROUTINES 


SERA AREER EERE EEE ERE REE 


°SBTTL ERROR TYPEOUT ROUTINE 


:*THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION 
: *REGARDING THE DETECTION OF AN ERROR AS FOLLOWS: 


** 
-UNIT NUMBER, TEST NUMBER, ERROR NUMBER AND PROGRAM COUNTER ARE 
} #PRINTED ON THE FIRST LINE; 
-ERROR MESSAGE IS ASSEMBLED, FORMATTED AND PRINTED ON 
;+ONE OR Aegy | SUCCEEDING LINES; 
PAIRED LINES OF ERROR HEADERS AND ERROR DATA 
«ARE PRINTED AFTER THE ERROR MESSAGE. 


ERRTYP: 
SAVREG 
125076 BIT #S5W13,aSwWR s INHIBIT TYPEOUTS?? 
BEQ 1$ “NO! ! 
JMP 25$ YES! 
; TYPE UNIT NUMBER, TEST NUMBER, ERROR NUMBER, AND PROGRAM COUNTER 
i$: TYPE  ,$CRLF 
TYPE ‘ERTYOO :TYPE "UNTA"' 
MOV $UNIT, -(SP) +:SAVE SUNIT FOR TYPEOUT 
:: TYPE UNIT NUMBER 
TYPOS ::GO TYPE=-OCTAL ASCII 
.BYTE 3 :TYPE 3 DIGIT(S) 
‘BYTE 0 [SUPPRESS LEADING ZEROS 
. ;TYPE "DRIVE TYPE’ RMOS, RMO3 OR’ RMO2 FOR UNIT UNDER TEST 
MOV RMDT (RO) ,RO :STORE RMDT AT RO 
BIC #177740,RO SSAVE DRIVE TYPE BITS AND 
054166 MOV #SRMO3, 3$ [GET ASCII DRIVE TYPE 
CMP #24,RO tI1S DEVICE AN RMO3 ? 
BEQ 2$ :YES !! 
054166 MOV #SRMO2, 3$ 7SAVE ASCII DRIVE TYPE 
CMP #25,RO :1S DEY VICE AN RMO2 ? 
BEQ 2$ “YES ! 
054166 MOV #SRMDS , 3S :SAVE ASCII DRIVE TYPE 
CMP #27,RO :1S DEVICE AN RMOS ? 
BNE :NO 
2$: TYPE = ERTYOS TYPE "* =" 
TYPE “TYPE DRIVE TYPE 
3$: .WORD 0 [DRIVE TYPE MESAAGE IS STORED HERE 
;TYPE TEST NUMBER, ERROR NUMBER AND PROGRAM COUNTER 
is: CLR TSTNMB ;LOAD TEST NUMBER FOR 
054666 MOV STESTN, TSTNMB 
TYPE _,ERTYO :TYPE "TSTA"’ 
MOV TSTNMB,-(SP) 2: SAVE TSTN® FOR. TYPEQUT 
TYPOS [GO TYPE--OCTAL ASCII 
.BYTE 3 S:TYPE 3 DIGIT(S) 
"BYTE 0 >: SUPPRESS LEADING ZEROS 
CLR ERRNMB :LOAD ERROR NUMBER FOR 
054670 MOVB  $ITEMB,ERRNMB =: TYPEOUT 
BEQ 5$ :SKIP IF NO ERROR CALLED 


SEQ 0218 — 
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ERROR TYPEOQUT ROUTINE 





50 054232 104401 054714 TYPE JERTYO2 ; TYPE ‘'ERRA' 
51 054236 013746 054670 MOV ERRNMB,-(SP)  ; SAVE _ERRNMB FOR TYPEOUT 
ii TYPE ERROR NUMBER 
054242 104403 TYPOS 3GO TYPE=-OCTAL ASCII 
054244 -. 003 .BYTE 3 ri: TYPE 3 DIGIT(S) 
054245 000 .BYTE 0 3 SUPPRES S LEADING ZEROS 
52 054246 104401 054793 S$: TYPE ,ERTYO3 YPE 'PC=' 
53 054252 013746 001132 MOV - $ERRPC,-(SP) SAVE SERRPC FOR TYPEOUT 
:: TYPE PROGRAM COUNTER 
054256 104403 TYPOS 3:G0 TYPE=-OCTAL ASCII 
054260 006 .BYTE 6 :3TYPE 6 DIGIT(S) 
054261 001 .BYTE 1 ;TYPE LEADING ZEROS 
54 :GENERATE POINTER TO ERROR TABLE UNLESS ERROR NUMBER IS 0 
55 054262 005737 054670 é$: TST ERRNMB :WAS AN ERROR CALLED? 
; 56 054266 001575 BEQ 25$ NO! ! 
57 054270 104401 001217 TYPE $CRLF ‘VESCTYPE CRLF 
58 054274 105037 054674 CLRB = BOTFLG :CLEAR BOT FLAG 
59 054300 105037 054675 CLRB ——- CHRCNT [CLEAR CHARACTER COUNTER 
60 054304 013700 054670 MOV ERRNMB,RO :RO POINTS TO FIRST OF 
61 054310 006300 ASL RO [FOUR ENTRIES IN ERROR 
62 054312 006300 ASL RO + TABLE 
63 054314 006300 ASL RO 
64 054316 062700 001526 ADD #SERRTB-8. ,RO 
65 054322 011001 MOV (RO) ,R1 :RI POINTS TO ERROR MESSAGE 
67 054324 001507 BEQ 16$ :BRANCH IF NO ERROR MESSAGE 
68 : TYPE THE ERROR MESSAGE 
69 054326 012102 7$: MOV (R1)+,R2 ;R2=ADDRESS OF MESSAGE STRING 
70 054330 001505 BEQ 16$ [BRANCH IF END OF MESSAGE 
| 71 054332 010237 054500 MOV R2,15$ ZLOAD ADDRESS OF STRING 
72 054336 005037 054672 CLR BOTADR :CLEAR BOT ADDRESS 
73 054342 112203 8S: MOVB = (R2)+,R3 SEND OF STRING?? 
74 056344 001454 BEQ 4$ sYES!! 
75 054346 122703 000015 CMPB ss #CR,,R3 S CARRIAGE RETURN?? 
76 054352 001003 BNE 9$ NO! ! 
77 054354 105037 054675 CLRB = CHRCNT :YES-CLEAR CHAR COUNT 
78 054360 BR :GET NEXT CHARACTER 
79 054362 122703 000012 9S: CMPB ss #'LF,R3 “LI 
80 054366 001765 - BEQ 8$ iYES<GET NEXT CHARACTER 
81 054370 122703 000011 CMPB ss HHT, R3 « SHORIZONTAL TAB?? 
B2 054374 001007 BNE 11$ =NO!! 
83 054376 105237 054675 10S: INCB —CHRCNT TADJUST CHARACTER COUNT 
| 8% 054402 132737 000007 054675 BITB #7, CHRCNT 
; 85 054410 001372 BNE 10$ 
86 054412 000407 BR 12$ 
87 054414 105237 054675 11$: INCB  — CHRCNT Z INCREMENT CHARACTER COUNT 
BB 054420 122703 000040 CMPB of’ =CR3 SP ACE?? 
89 054424 001002 BNE 12$ "i 
90 054426 010237 054672 MOV R2,BOTADR SAVE ADDRESS OF SPACE 
91 054432 122737 000100 054675 12$: CMPB #64. .CHRCNT :END | OF LINE?? 





BOTADR ,R4 :GET ADDRESS OF LAST SPACE 
13$ [BRANCH i SPACE DETECTED 
.SCRLF : TYPE CRL 

HRCNT CLEAR CHARACTER C 


C 
ane 7SET UP R2 FOR TESTING 


SEQ 0219 
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/ER ROR TYPEOUT ROUTINE SEQ 0220 


99 054466 105044 138: CLRB = =(R4) ;REPLACE SPACE 
100 054470 112737 177777 054674 MOVB = #=1,BOTFLG 7SET BOT FLAG 
101 054476 104401 14$: TYPE ; TYPE ERROR MESSAGE STRING 
102 054500 000000 15$: — ,WORD ;STRING ADDRESS GOES HERE 
103 054502 105737 054674 TSTB) = BOTFLG sWAS STRING TRUNCATED?? 
104 054506 001707 BEQ 7$ ZNO! ! 
105 054510 104401 001217 TYPE  ,$CRLF SYES-TYPE CRLF 
106 054514 105037 054674 CLRB = BOTFLG :CLEAR BOT FLAG 
107 054520 105037 054675 CLRB = CHRCNT ZCLEAs CHARACTER COUNT 
108 054524 013702 054672 MOV BOTADR .R2 SETUP Re FOR TESTING 
109 054530 010237 054500 MOV 2.1 :SETUP 15$ FOR TYPING 
110 054534 112742 000040 MOVB = #"_,=(R2) SRESTORE SPACE 
| 191: 054540 +=105722 TSTB —s (R2S+ RESTORE R2 
11 054542 000677 BR 8$ :TYPE REST OF STRING 
114 ; TYPE ERROR HEADER AND ERROR DATA 
115 054544 16$: 
116 054544 016001 000002 17$: MOV 2(RO),R1 ;R1 POINTS TO ERROR HEADER TABLE 
117 054550 001444 BEQ 25$ [BRANCH IF NO HEADER 
118 054552 104401 001217 TYPE —, $CRLF ; (ASSUME NO DAT 
119 054556 016002 000004 MOV 4 (RO) .R2 :R2 POINTS TO DATA ADDRESS TABLE 
120 054562 016003 000006 MOV 6(RO) -R3 :R3 POINTS TO FORMAT TABLE 
121 054566 012137 054576 18$: MOV (R1)+.19$ [PUT HEADER ADDRESS FOR TYPE 
122 054572 001433 BEQ 25$ BRANCH IF END OF HEADERS 
123 ; (ASSUME END OF DATA) 
124 054574 104401 TYPE 
125 054576 19$:  .WORD 0 ;HEADER ADDRESS GOES HERE 
126 054600 104401 001217 TYPE —, $CRLF 
127 054604 005702 TST R2 :DATA WITH HEADER?? 
128 054606 001767 BEQ 18S [NO! ! 
129 054610 012204 MOV (R2)+,R4 RA POINTS TO DATA ADDRESS 
130 054612 012305 MOV (R3)4¢,R5 iRS et TO FORMAT 
131 054614 105725 208: STB (R5)« T KIND OF DATA?? 
132 054616 100207 BM 22 ‘BINARY 
133 054620 001403 BEQ 21$ SOC TAL 
134 054622 013446 V a(R4)+,-(SP)  — :DECIMAL 
135 054624 104405 TYPDS 
136 054626 05 238 
137 054630 6 21$: MOV @(R4)+,=(SP) 
138 054632 104402 TYPOC 
139 054634 02 238 
140 054636 01 228: Mov @(R4) +, (SP) 
141 054640 nr TYPBN 
142 054642 005714 23$: TST (R4) : MORE DATA?? 
143 054644 001403 BEQ 24$ =NO! 
144 054646 104401 056731 TYPE ERTYO4 ZYES-TYPE 2 SPACES 
145 054652 0007 BR 0$ AND CONT INUE 
146 054654 104401 001217 248: TYPE ,$CRLF 7 TYPE ONE BLANK LINE 
| 147 054660 000742 BR i8s UBEFORE NEXT HEADER 
148 054662 104415 
:TEST NUMBER 
[ERROR NUMBER 
:BEGINNING OF TEXT ADDRESS 


AG 
; CHARACTER COUNT 








Pepe ee Ge, c 2 
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C2 
ERROR TYPEOU TINE SEQ 0221 
ea. 
| 157 054676 125 116 111 ERTYOO: .ASCIZ @uUNIT#a 

158 054704 054 040 124 ERTYO!: .ASCIZ @, TEST#a 

159 054714 054 040 105 ERTYO2: .ASCIZ @. ERR#@ 

160 054723 054 040 120 ERTYO3: .ASCIZ @. PC= 

161 054731 040 040 000 ERTYO4: :ASCIZ @ @ 

162 054734 040 055 040 ERTYOS: .ASCIZ @-a 

164 054740 122 115 060 $RMO2: .ASCIZ aRMO2@ 

165 054745 122 115 060 $RMO3: .ASCIZ a@RMO3a 

166 054752 122 115 : ASCIZ @RMOS@ 


g 
3 
> 





CZRMPAO wa eh ob Dace TST 1 


CLOCK SUBROUTINE 


006 005777 
prs 404 012737 


OONAUVUSWN—"OVDOONAUESWR 


oa St ss 
MMVI 
wu wvws 
SR oO 
vw 
oO 


lolejlelelelelolelelo) 
Ww wi Mui 


hrm 
= 


ooooooo 
MAA AMA 
MAMA 
EVSERSA 
S 
o 


055 012637 
46 055212 012637 
000207 


51 055220 012777 
52 055226 012777 
53 055234 000403 


55 055236 012777 
56 


000004 
000006 
055056 
000300 


124474 


BE peeeee 


177777 
000135 


000100 
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001534 
124456 
124452 
124450 


124356 


124262 
124252 


124252 





-SBTTL CLOCK SUBROUTINES 
ROUTINE TO SiZE FOR CLOCKS (KW11=L OR KW11-P) 


SIZCLK: NOP 
MOV ERRVEC,=(SP) 3 =PUSH ERRVEC ON STACK 
MOV ERRVEC+2,-(SP) 3 PUSH ERRVEC +2 ON STACK 
MOV #10$,ERRVEC ;LOAD 04° TRAP VECTOR 


MOV #PR6,ERRVEC +2 


SEE IF A KW11-P CLOCK IS PRESENT - GO TO 10$ IF NOT PRESENT 
TST @SLPCSR TEST FOR P CLOCK 
MOV aPStop § aa [LOAD SUBROUTINE ADDRESS 


LOAD STOP ADDRESS 
MOV #PCOUNT ,@SLPVEC :LOAD P CLOCK INTERRUPT VECTOR 
MOV #PR6, ASLPVEC+2 


MOV SLLVEC+2 SELL VEC :CLEAR L CLOCK INTERRUPT VECTOR 
CLR aSLLVEC+2 
BR 30$ 

10$: MOV #15$, (SP) :DUMMY RTI ADDRESS 
RTI TRESTORE PRIORITY 

iNO P CLOCK=SEE IF L CLOCK IS PRESENT-GO TO 20$ IF NOT PRESET 

“Mov #20$, ERRVEC : CHANGE 04 TRAP VECTOR 

TST a@$SLLCSR :TEST FOR L CLOCK 


MOV MLCLOCK,CLOCK LOAD SUBROUTINe ADDRESS 

MOV #LSTOP, STOP [LOAD STOP ADDRES 

MOV #LCOUNT, @SLLVEC ;LOAD L CLOCK INTERRUPT VECTOR 

MOV #PR6, ASLLVEC+ 

MOV SLPVEC+>. @SLPVEC;CLEAR P CLOCK INTERRUPT VECTOR 
a$LPVEC+2 


CLR 
BR 30$ 
20$: MOV #25$, (SP) ;DUMMY RTI ADDRESS 
RTI SRESTORE PRIORITY 
5NO CLOCK AVAILABLE - AUGMENT RETURN ADDRESS 
oe i ZCLEAR SUBROUTINE ADDRESS 
mov #SLPVEC #2, »SLPVEC:CLEAR P CLOCK INTERRUPT VECTOR 
MOV #SLLVEC#2, /SLLVEC;CLEAR L CLOCK INTERRUPT VECTOR 
ne ADD #2,4(SP) : CHANGE RETURN ADDRESS 
"MOV (SP) +, ERRVEC+2 POP STACK INTO ERRVEC+2 
MOV (*2)+°ERRVEC . ::POP STACK INTO ERRVEC 
RTS PC 
;ROUTINES TO START THE CLOCK (KW11-L OR KW11-P) 
PCLOCK: MOV #~1,aSLPCSB ;LOAD COUNT SET BUFFER 
MOV #135 a$LPCSR  :LOAD CONTROL REGISTER 
BR PLCLK [GO TO COMMON CODE 


LCLOCK: MOV #100, a$LLCSR LOAD CONTROL REGISTER 


SEQ 0222 
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CZRMPAQ wae hh * sears TST 1 


CLOCK SUBROUTINE SEQ 0223 

57 055244 005037 001526 PLCLK: CLR TIME ;CLEAR TIMER COUNT 

58 055250 104400 TRAP 7;PUSH OLD PSwW AND PC ON STACK 
055252 012605 MOV (SP) +,R5 ::SAVE THE PSW IN RS 

59 055254 010537 001524 MOV R5,$PSW : SAVE PRIORIT Y 

60 055260 042705 177437 BIC #*CPR7_RS SMASK X 

61 055264 022705 000300 CMP APRO6,RS i1s /PRIORITY TOO HIGH?? 

62 055270 101005 BHI 40$ 

63 055272 012746 000240 MOV #PRS,-(SP) Put NEW PS ON STACK 
055276 012746 055304 MOV #30$,-(SP) [PUT NEW PC ON STACK 
B22 -_ RT] :: POP NEW PC AND PS 

64 055304 000207 40$: RTS PC 

66 ;ROUTINES TO HANDLE CLOCK INTERRUPTS (KW11=L OR KW11-P) 

68 055 PCOUNT : 

69 055306 LCOUNT : 

70 055 062737 000021 001526 ADD #17., TIME ZADD 17MS_TO ELAPSED TIME 

71 055314 103003 BCC 10$ CH IF NO OVERFLOW 

72 055316 012737 177777 001526 MOV #-1, TIME “RESTORE MAXIMUM COUNT 
055324 162737 000021 001530 108: SUB #17. ,WATCH ZDECREMENT REMAINING TIME 

74 055332 2 BPL 20$ [BRANCH IF POSITIVE 

75 055334 005037 001530 CLR WATCH [CLEAR REMAINING TIME 

26 055340 20$: ARTI :RETURN TO USER 

a4 ROUTINES TO STOP THE CLOCK (KW11-L OR KW11-P) 

80 055342 005077 124140 PSTOP: CLR a$LPCSR :STOP P CLOCK 

81 055346 02 BR PLSTP :GO TO COMMON STOP CODE 

85 055350 005077 124142 LSTOP: CLR aSLLCSR ;STOP L CLOCK 

85 055354 PLSTP: 

86 055354 013746 001524 MOV $PSW,-(SP) ::PUT NEW PS ON STACK 
055360 012746 055366 MOV #10$,-(SP) >ZPUT NEW PC ON STACK 
055364 000002 RT] >:POP NEW PC AND PS 

55366 10$: 
87 055366 000207 RTS PC 


CZRMPAQ RMO5/3/2 DSKLS TST 1 
SET VOLUME VALID SUBROUTINE 


ee ed aed cd ee cd ed ed ened 
VIS OONANEWU A OONDVOURWR 


mr 


55440 
46 


29 055510 
30 
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-SBTTL SET VOLUME VALID SUBROUTINE 


3 THIS SUBROUTINE INITIALIZES THE SUBSYSTEM AND SETS VOLUME VALID, 
RETURNING WITH THE DRIVE STILL IN DIAGNOSTIC MODE.™ THE SUBROUTINE 
[RETURNS TO THE WORD FOLLOWING THE CALL, EXCEPT WHEN’AN ERROR IS 
CALL. IN WHICH CASE IT RETURNS TO THE SECOND WORD FOLLOWING THE 


CALL: JSR PC.SETVV 


JUMP TO SUBROUTINE 


: BR RETURN HERE IF NO ERROR 
; ERROR RETURN HERE IF ERROR 
SETVV: 
JSR PC,CNTCLR 7GO CLEAR CONTROLLER 
000024 MOV #DMD,RMMR1(RO) =LOAD RMMRI 
0000 MOV ADMD 'MUR, RO) :LOAD RMMR1 
000014 MOV #0.RMER1(RO) =; LOAD RMER 
MOV #O,RMER2(RO) = LOAD RMER2 
MOV #PACACK!'GO,RMCS1(RO) — : LOAD RMCS1 
001142 MOV RMDS(RO),$B8DDAT ;STORE RMDS AT $BDDAT 
001142 BIC #*CVV, SBDDAT 
BNE 10$ ;BRANCH IF VOLUME VALID SET 
MOV RO, SBDADR :SETUP FOR ERROR MSG 
001136 ADD ARMDS , SBDADR 
001140 MOV av SGDDAT 
ADD (SP) :MOVE RETURN ADDRESS TO ERROR 
000000 MOVB 470° a(SP) [WRITE ERROR NUMBER 
001174 MOV #PACACK , $TMPO 
10$: RTS PC RETURN 


SEQ 0224 





CZRMPAQ RMO5/3/2 DSKLS TST 1 
SET OFFSET MODE SUBROUTINE 


1 
2 

3 

4 sMODE SETS. 

2 ; SUBROUTINE 

7 

8 ; 

9 ;CALL: JSR 
10 : BR 
1} : ERROR 
13 055512 SETOM: 

14 055512 012760 001001 000024 MOV 
15 055520 012760 000000 000014 MOV 
16 055526 012760 000000 000042 MOV 
17 055534 012760 000015 000000 MOV 
18 055542 016037 000012 001142 MOV 

19 055550 042737 177776 001142 BIC 
20 055556 001015 BNE 
21 055560 012737 000001 001140 MOV 
22 0555 010037 001136 MOV 
23 0555 062737 000012 001136 ADD 
24 055 062716 000002 ADD 
25 055 112776 000200 000000 MOVB 
26 055612 . 10$: 
$e 12 000207 RTS 


Nm 

~N 
33333333 
Ww 

Ba SSS 


2 
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~SBTTL SET OFFSET MODE SUBROUTINE 


THIS SUBROUTINE EXECUTES AN OFFSET COMMAND AND VERIFIES THAT OFFSET 

THE DRIVE SHOULD BE IN DIAGNOSTIC MODE WHEN CALLING THE 
- WHICH WILL LEAVE DMD ON. 
WORD FOLLOWING THE CALL UNLESS THERE IS AN ERROR, IN WHICH CASE IT 
RETURNS TO THE SECOND WORD FOLLOWING THE CALL 


THE SUBROUTINE RETURNS TO THE 


JUMP TO SUBROUTINE 
RETURN HERE IF NO ERROR 
RETURN HERE IF ERROR 


PC,SETOM 
?? 


ADMD ! MUR, RMMR1 (RO ;LOAD RMMR1 
#0 ,RMER1 (RO) LOAD RMER1 


RMER2 (RO) : RMER2 
eoethni RMCS1(RO) ;LOAD_ RMCS1 


RMDS(RO) ,$BDDAT ;STORE RMDS AT $BDDAT 

#°COM, SBDDAT 

10$ ;BRANCH IF OFFSET ON 

#OM, SGDDAT 

RO, $8DADR 

ARMDS , SBDADR 

#2, (SP) ;MOVE RETURN ADDRESS TO ERROR 
#200, a(SP) SWRITE ERROR NUMBER 

PC ;RETURN TO USER 


SEQ 0225 





—_— eS SS YS 





CZRMPAQ RMOS/3/2 DSKLS TST 1 
CLEAR CONTROLLER SUBROUTINE 


1 
2 
3 
4 
5 
6 
7 
8 
a 
0 
1 
2 
3 
4 
5 
6 
7 


001276 
000040 
123626 


055650 


000042 
053636 
004626 


“i. 3 
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000010 
000010 


-SBTTL CLEAR CONTROLLER SUBROUTINE 
:THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTERS, 


CNTCLR: 


10$: 


JSR 


SHUTDOWN SUBROUTINE 


PC, CNTCLR 


RO,-(SP) 


$BASE ,RO 
ACLR, ReIcS2 (RO) 
aT STQUE RMCS2( 


)+,R0 


,65$ 
4 


RO) 


. 


{AND DRIVES, THEN SELECTS THE DRIVE. 


CALL TO ROUTINE 


; sPUSH RO ON STACK 
;RO_= UNIBUS BASE ADDRESS 


:CLEAR MASSBU 

SELECT DEVICE UNDER TEST 
;;POP STACK INTO RO 
; RETURN 


;;TYPE ASCIZ STRING 
:GET OVER THE ASCIZ 


CCRLF>@TEST WAS HAL TEDa<CRLF> 

+ oy te CHAIN MODE OR ACT11 AUTO ACCEPT ? 
YES = GO TO END OF PASS 

:GO TO START 


SEQ 0226 


1 -SBTTL SAVE AND RESTORE RO=-R5 ROUTINES 


| FREER 


Fear RMO5/3/2 DSKLS TST 1 MACRO VO3.01 11-APR~80 13:58:55 PAGE 5 
ps AND RESTORE RO=R5 ROUTINES SEQ 0227 


: SAVE RO=R5 
ALL: 


: SAVREG 

: *UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 

}#TOB=-~(+16) 

z* +2--=(+18) 

3* +4==-R5 

p% 46=--R4 

7* +8---R3 

3*+10---R2 

3*+12---R1 

3*+14---R0 
055710 SSAVREG: 
055710 010046 MOV RO,=(SP) 3;PUSH RO ON STACK 
055712 010146 MOV R1,-(SP) 3zPUSH R1 ON STACK 
055714 010246 MOV R2,~(SP) yar R2 ON STACK 
055716 010346 MOV R3,-(SP) PUSH ~ ON STACK 
055720 010446 MOV R4,-(SP) PUSH R4 ON STACK 
055722 010546 MOV R5,~(SP) 3zPUSH R5 ON STACK 
055724 016646 000022 MOV 22(SP) ,=(SP) zzSAVE PS OF MAIN FLOW 
055730 016646 000022 MOV 22(SP) .=(SP) 22SAVE PC OF MAIN FLOW 
055734 016646 000022 MOV 22(SP) ,-(SP) 22SAVE PS OF CALL 
055740 016646 000022 MOV 22 (SP) ,~(SP) 2:SAVE PC OF CALL 
055744 000002 RTI 


*CALL: 
* RESREG 


055746 $RESREG 
055746 012666 000022 MOV (SP)+,22(SP)  ;;RESTORE PC OF CALL 
055752 012666 000022 MOV (SP)+,22(SP)  ::RESTORE PS OF CALL 
055756 012666 000022 MOV (SP)+,22(SP) § ::RESTORE PC OF MAIN FLOW 
055762 012666 000022 MOV (SP) +, 22(SP) : :RESTORE PS OF MAIN FLOW 
055766 012605 MOV (SP)+-R5 3: TACK INTO R5 
012604 MOV (SP) +,R4 +: POP STACK INTO R4 
055772 012603 MOV (SP)+_R3 ::POP STACK INTO R3 
055774 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
055776 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
056000 012600 MOV (SP) +.RO ::POP STACK INTO RO 
056002 000002 RTI 
2 .SBTTL BINARY TO ASCII AND TYPE ROUTINE 


FARRAR AERAERAEAEEAEEEEEAEAERAR AN KERAEREREREREEEEREREEEEREEEE 


SSTHIS ROUTINE IS USED A. oe A 16-B1T BINARY NUMBER TO A 16-B1T 
: #BINARY“ASCI] NUMBER AND TYPE IT. 


ae MOV  NUMBER,~(SP) —; ;NUMBER_TO BE TYPED 
ie TYPBN i; TYPE IT 
056004 010146 STYPBN: MOV —s_R1,~ (SP) ::SAVE_R1 ON THE STACK 
056006 016601 000006 Mov 6 (SP) ,R1 iGET THE I 


NPUT NUMBER 
056012 000261 SEC g3aEt ° ie. SO CAN KEEP TRACK OF THE NUMBER OF BITS 





J 
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CZRMPAQ_RMOS/3/2 DSKLS TST 1 


BINARY TO ASCII AND TYPE ROUTINE SEQ 0228 


056014 112737 000060 056056 1S: MOVB «#0, $BIN ::SET CHARACTER TO AN ASCII ‘0"'. 

(56022 006101 ROL R1 iGET THIS BIT 

056024 001406 BEG 2$ 

056026 105537 056056 ADCB = $BIN + a er THE CHARACTER EQUAL TO THIS BIT 

056032 104401 056056 TYPE  ,$BIN i260 AVE. THIS BIT 

056036 000241 CLC 'c'' SO CAN KEEP TRACK OF BITS 

056040 000765 BR 1$ $360. 0G THE NEXT BIT 

056042 012601 2$: MOV (SP)+,R1 :POP THE STACK INTO R1 

056044 016666 000002 000004 MOV 2(SP) -4(SP) S:ADJUST THE STACK 

56052 012616 MOV (SP) +. (SP) 

056054 RTI ; RETURN TO USER 

056056 000 $BIN: .BYTE 0,0 SSTORAGE FOR ASCII CHAR. AND TERMINATOR 

eae "SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
SEAR ARERR EE 

TRTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A S-DIGIT 
:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER 
:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
:*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
: sREPLACED WITH SPACES. 
** sg 
* MOV NUM, =(SP) ::PUT THE BINARY NUMBER ON THE STACK 
:* TYPDS +:GO0 TO THE ROUTINE 

56060 STYPDS: 

956060 010046 MOV RO,-(SP) ; PUSH RO ON STACK 

056062 010146 MOV R1.=(SP) +:PUSH R1 ON STACK 

056064 010246 MOV R2.=(SP) +:PUSH R2 ON STACK 

056066 010346 MOV R3,-(SP) +:PUSH R3 ON STACK 

056070 010546 MOV R5.=(SP) ; PUSH RS ON STACK 

056072 012746 020200 MOV #20200,-(SP) 3 :SET BLANK SWITCH AND SIGN 

056076 016605 000020 MOV 20(SP) -RS S:GET THE INPUT 

056102 1 BPL ::BR IF INPUT IS ~% 

056104 005405 NEG R5 [:MAKE THE BINARY NUMBER POS. 

056106 112766 000055 000001 MOVB = #*=, 1 (SP) T:MAKE THE ASCII NUMBER NE 

056114 005000 1$: CLR RO 7:ZERO THE CONSTANTS INDEX 

056116 012703 056274 MOV #SDBLK ,R3 S:SETUP THE OUTPUT POINTER 

056122 112723 000040 MOVB oft! tna S:SET THE FIRST CHARACTER TO A BLANK 

056126 005002 2s: CLR R2 i3CLEAR THE BCD NUMBER 

056130 016001 056264 MOV S$DTBL (RO) .R1 THE CONSTAN 

056134 160105 3$: SUB R1,R5 £3 FORM THIS BeD D DIGIT 

056136 002402 BLT 4$ BR IF 

056140 00520 INC R2 t: INCREASE THE BCD DIGIT BY 1 

056142 000774 BR 3$ 

056144 060105 48: ADD R1,R5 ;2ADD BACK THE CONSTANT 

056146 005702 TST R2 Z3CHECK IF BCD DIGIT=0 

056150 001002 BNE 5$ ALL THROUGH IF 

056152 105716 TSB. = (SP) :iSTILL DOING LEADING 0'S? 

056154 100407 BMI 7$ :BR IF YES 

056156 106316 5$: ASLB = (SP) 33 

056160 103003 BCC 6$ [BR IF NO 

056162 116663 000001 177777 MOVB 1(sP) -1(R3) :3YES=SET THE SIGN 

056170 052702 000060 BIS #'O.R2 SIMAKE THE BCD DIGIT ASCII 

056174 052702 000040 BIS o oR :iMAKE IT A SPACE IF NOT ALREADY A DIGIT 

056200 M022 MO R2, (R3)+ [PUT THIS CHARACTER IN THE OUTPUT BUFFER 

056202 005720 TST (RO) + Ei IUST INCREMENT ING 

056204 020027 000010 CMP RO,#10 [CHECK THE TABLE INDEX 








CZRMPAQ meee fo beth TST 1 


CONVERT BINARY T 





002746 
00 


177777 


056274 
000002 


K 
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ECIMAL AND TYPE ROUTINE 


177776 


056527 


036347 
056531 
056526 


BLT 2$ 3360 DO THe NEXT DIGIT 
BGT 8$ TO EX! 
MOV R5,R2 :3GET THE L Sp 
BR 6$ 0 CHANGE TO ASCII 
8$: TSTB  —s- (SP) + WAS THE LSD THE FIRST NON-ZERO? 
BPL 9$ ‘BR IF NO 
MOVB  <=1(SP),-2(R3)  ::YES=-SET THE SIGN FOR TYPING 
9$: CLRB = (R’3) t:SET THE TERMINATOR 
MOV (SP)+,R5 ':POP STACK INTO R5 
MOV (SP)+.R3 ::POP STACK INTO R3 
MOV (SP) +-R2 ::POP STACK INTO R2 
MOV (SP)+-R1 :POP STACK INTO R1 
MOV ($P) + RO +: POP STACK INTO RO 
TYPE Lk NOW TYPE THE NUMBE 
V Yip 4(SP) S:ADJUST THE STACK 
MOV (SP) +; (SP) 
RTI : RETURN TO USER 
$DTBL: 10000. 
1000. 
100. 
10. 


SDBLK: .BLKW 4 
-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


EPP i Tritt tii iti tit iit iit it iti titi titi tit 
:*THIS ROUTINE IS USED TO — A 16-B1T BINARY NUMBER TO A 6-DIGIT 
;*OCTAL (ASCII) NUMBER AND TYPE IT 
;*S$TYPOS==-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


>*CALL: 

3* MOV NUM, =(SP) ;NUMBER TO BE TYPED 

:* TYPOS + ECALL FOR TYPEOUT 

3* -BYTE N 3iN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
:* -BYTE ™ 77M=1 OR O 

3* 321=TYPE LEADING ZEROS 

:* 770=SUPPRESS LEADING ZEROS 


2 *STYPON--~-ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
> yf alia OR $TYPOC 


* MOV NUM, (SP) ::NUMBER TO BE TYPED 
i TYPON SICALL FOR TYPEOUT 
{#STYPOC—-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
je MOV NUM, -(SP) ; NUMBER TO BE TYPED 
:* TYPOC TICALL FOR TYPEOUT 
$TYPOS: MOV a(SP) ,-(SP) ; PICKUP THE MODE 
MOVB 1(SP),$OFILL = 3;LOAD ZERO FILL SWITCH 
MOVB = (SP)+,SOMODE+1 ::NUMBER OF DIGITS TO TYPE 
ADD #2, (SP) [ADJUST RETURN ADDRESS 
BR $TYPON 
STYPOC: MOVB #1, SOF ILL r2SET THE ZERO FILL SWITCH 
MOVB  4#6.SOMODE+1 t:SET FOR SIX(6) DIGITS 
STYPON: MOVB #5.$0CNT SE THE ITERATION COUNT 
MOV R3,-(SP) +: SAVE 


MOV R4,~(SP) 72 SAVE R4 


SEQ 0229 





CZRMPAQ_RMO5/3/2 acti TST 1 


BINARY TO OCTAL 





ASCII) AND TYPE 


. 0546 


056531 


000006 
056530 
056527 
000012 


056530 
177770 


056526 


000002 000004 


1$: ROL 
BR 
2$: ROL 


5$: BIS 


6$: MOV 


8$: -BYTE 
B 


SOCNT: “BYT 
SOFILL: .BYTE 


L 
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R5,=(SP) 
SOMODE +1 ,R4 
R4 


(SP)+,R3 
2(SP) ,4(SP) 
(SP)+, (SP) 


SOMODE: .WORD 
.SBTTL TYPE ROUTINE 


JAAR ARAEAEAAERERAEEEEREEERAERAEEEAERAEEAEEEEEREREERERERERREKEKEEE 


{AROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 it 
ate WILL INSERT A NUMBER OF 


L_ CONTA 
SPILLS CONTAINS THE 


:* TYPE 
:* ME SADR 





37 SAVE RS 
3iGET THE NUMBER OF DIGITS TO TYPE 


3; SUBTRACT IT FOR MAX. ALLOWED 
:sSAVE_IT FOR USE 


::GET THE ZERO FILL SWITCH 
33 yl —— 


3-CLEAR 
35RO OTATE MSB INTO. on 


:GO DO MSB 
FORM THIS DIGIT 


:GET LSB OF THIS DIGIT 
ZITYPE THIS DIGIT? 


7BR_IF NO 
:3GET ae OF JUNK 
; TEST FOR 


2 SUPPRESS THIS 0? 
:-BR IF YES 


DON'T SUPPRESS 


ANYMORE 0'S 


+ sMAKE THIS DIGIT ASCII 
ASCI 


; SAVE 


vee NOT ALREADY 
YPING 


FOR T 
+360 TYPE THIS DIGIT 
T BY 1 
3 3BR 4 MORE TO DO 
ONE 


; T R3 
::SET THE STACK FOR RETURNING 


; ;RETURN 
2sSTORAGE FOR atk DIGIT 
FOR TYPE ROU 


32 TERMINATOR 


7OCTAL DIGIT er 


: FINSURE LAST DIGIT ISN'T A BLANK 
HE LAST DIGIT 


TINE 
ER 


32ZERO FILL SWITCH 
2 NUMBER OF DIGITS TO TYPE 


OF 


NULL CHARACTERS AFTER A LINE 
INS THE CHARACTER by BE USED AS 


NUMBER FI 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


: Le 
3*1) USING A TRAP INSTRUCTION 
TYPE »MESADR 


::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


FEED. 
THE FILLER CHARACTER. 
LLER CHARACTERS REQUIRED. 


SEQ 0230 





CZRMPAQ RMO5/3/2 DSKLS 
TYPE ROUTINE 





105737 
100002 


TST 1 


001173 


000011 
000200 


057062 
056744 
001172 
001170 


000001 
056744 
057062 


00004 
056744 
00000 


122210 


177600 


000023 


M 
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001242 
001243 


001243 


057062 


61$: 
62$: 
2$: 
60$: 
3$: 
4$: 


sHORIZONTAL TAB 


8$: 


STYPEC: 


STPFLG 
1$ 


#APTSPOOL , SENVM 
62$ 


RO,61$ 
PC ,SATY3 


#APTCSUP , SENVM 
60$ 


(RO) +,=(SP) 
4$ 

(SP) + 
(SP)+,RO 
#2, (SP) 
ae 
CRLF, (SP) 
5$ 


(SP)+ 


SCHARCNT 
2s 


PC ,STYPEC 
se uic, (SP)+ 


S$NULL .-(SP) 
1(SP) 
6$ 
PC, STYPEC 
SCHARCNT 
PROCESSOR 
(SP) 

Pc .$tyPEec 
We SCHARCNT 
9$ 


(SP)+ 
2s 


- WSXOFF , (SP) 





si1S ie tt A TERMINA! ? 
site IF NO TERMINAL 


sSAVE RO 
ZIGET ADDRESS OF ASCIZ STRING 
be ING IN 


NO,GO CHECK FOR APT CONSOLE 

£3 SPOOL MESSAGE TO APT 

NO,GO CHECK FOR CONSOLE 

SETUP MESSAGE ADDRESS FOR APT 
MESSAGE TO APT 


;sAPT CONS 

2YES,SKIP TYPE 

3 PUSH CHARACTER TO BE TYPED ONTO STACK 
33BR IF IT ISN'T THE TERMINAT 

siTF fim POP IT OFF THE STACK 


ORE R 
; ADJUST RETURN PC 
+: BRANCH IF <HT> 
; ;BRANCH IF NOT <CRLF> 


7:POP <CR><LF> EQUIV 
:-TYPE A CR AND LF 


7 CLEAR nee COUNT 
T_CHARACTER 


NUL 
A NULL NEED TO BE TYPED? 
POP THE NULL OFF OF STACK 


8 TAB WITH SPACE 
ii TYPE A SPACE 

oe ee IF NOT AT 

32 TAB STOP 

i 3POP SPACE OFF STACK 
32GET NEXT CHARACTER 


fe mn aves BUF FER? 


Ger ic 
£1 STRIP EX tn a BITS 
:WAS C 


SEQ 0231 








CZRMPAQ RMOS/3/2 DSKLS 
TYPE ROUTINE 





001012 
105777 
5 


TST 1 


122164 
122160 
177600 


122142 


000002 
000015 


057062 
000012 


040000 
000004 
057126 
177060 


000004 


000400 


N 
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122134 
000002 


000002 


122056 


000004 


122010 


102$ 

asTkS 
cme 

ot e00. (SP) 
#SXON, (SP) 
(SP)+ 

asTPs 


10$ 
2(SP) ,aSTPB 
+ al -2(SP) 


oot 
$TYP 

ore 2s) 
Ptys. 

PC 


os¢ 


SCOPE HANDLER ROUTINE 


33BR IF NOT 
;zWAIT FOR CHAR 
3:GET C 
:ESTRIP-IT IT 
WAS IT XON? 
::BR IF NOT 
s3FIX STACK 
;zWAIT UNTIL PRINTER IS READY 


;zLOAD CHAR TO BE TYPED INTO DATA REG. 
21S ae A CARRIAGE RETURN? 


CH I 
i :YES=~CLEAR CHARACTER COUNT 
3338 CHARACTER A LINE FEED? 
CH_IF YES 


Y 
7:COUNT THE CHARACTER 
3 CHARACTER COUNT STORAGE 


PEC itiitiitiiiiiitiiiiisititty 

3*TH!'S ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

: *AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 


BNE ; 
ZAMAAASTART OF CODE FOR THE XOR 
SXTSTR: BR 6$ 


BNE 

1018: . 
TSTB 
BPL 
MOVB 
BIC 
C 
BNE 

102$: 
TST 

10$: 
TSTB 
BPL 
MOVB 
CMPB 
BNE 
CLRB 
BR 

1$: CMPB 
BEQ 
IN NCB 

SCHARCNT: . WORD 

$TYPEX: RTS 

. SBTTL 

7*SwWl 

3*SW11=1 

3*S = 

3; *Sw08=1 

3 *CALL 

s* SCOPE 

SCOPE : 
CKS 

1$: BIT 
MOV 
MOV 
TST 
MOV 
BR 

5$: CMP 
MOV 
BR 

6$:;4M4H4H4A4END OF 
BIT 


CLR 


:*AND LOAD 
ie THE SWITCH wit PROVIDED BY THIS ROUTINE ARE: 


ON TEST 
INHIBIT ITERATIONS 
LOOP ON ERROR 
LOOP ON TEST IN SWR<7:0> 
::SCOPE=I07 


#B1T14,aSWR 
ER 


@VERRVEC ,-(SP) 


#5$, AWERRVEC 
ar 


177060 
(SP) +, @#ERRVEC 
S$SVLAD 


(SP)+, (SP)+ 


5979+ -BOERRVEC 
CODE FOR THE XOR 
aSWR 


#81708, 
2s 
~(SP) 


ee TEST FOR CHANGE IN SOF T=SWR 
3:LOOP ON PRESENT TEST? 
sYES IF SW14=1 


ies reghente 
71F RUNNING ON THE SXOR* TESTER CHANGE 
S:THIS INSTRUCTION TO A "NOP’’ (NOP=240) 
SISAVE THE CONTENTS OF THE ERROR VECTOR 
33SET FOR TIMEQU 


: TIME OUT ON XOR? 
3 3RESTORE Sd tote te VECTOR 


O THE NEXT T 
SZCLEAR THE STACK AFTER A TIME OUT 
¢ SRESTORE THE ERROR VECTOR 
“LOOP ON THE PRESENT TEST 
* TESTERAAAMM 
ae SPEC. TEST? 


77CLEAR A TEMP. LOCATION 


SEQ 0232 


8 3 
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3COPE HANDLER SEQ 0233 





057150 122000 
000120 
001116 
057400 
001122 
001117 
001131 001117 
121720 


001122 


121666 


oO 
~ 
w 
N 
WWM 
NwNS 
So 
w 
~ 


° 

— 

— 

& 

N 
S8eSss 
— 4s 4 ss 
=a 


NRA—$OCFSNADNH 


°o 
_ 
N 
N 
N 
8s 
—~— 
~— 
No 


8$: TST 
2$: TSTB 


7$: MOV 
4$: CLRB 


3$: BIT 


1$: MOV 
SSVLAD: 


SOVER: 


SMXCNT: 
$SWO8TBL : 


@SWR, (SP) 
aaees (SP) 
(SP) ,STSTNM 
(SP) 

SP) 
#SSWOBTBL , (SP) 
@(SP)+,$LPADR 
SOVER 


(SP) + 
aerr LG 


SERMAX, SERFLG 
~ 

ty T09, aSwR 
SLPERR,$LPADR 
SOVER 

SERFLG 

STIMES 

1$ 
#81T11,aSWR 
1$ 

$SPASS 

1$ 


SICNT 

STIMES ,SICNT 
SOVER 
#1,$1CNT 
SMXCNT ,STIMES 
STSTNM 
STSTNM,STESTN 


(SP) , SLPADR 
(SP) ,SLPERR 
SESCAPE 


#1, SERMAX 
STSTNM,@DISPLAY ;; 


SLPADR , (SP) 


TST1#2 


:¢PICKUP THE DESIRED TEST NUMBER 

ae CH_ IF BAD TEST NUMBER IN SWR 
3;CHECK THE NUMBER IN THE SWR 

3;BRANCH IF TEST NUMBER IS OUT OF RANGE 
$ PBACKUP a ad NUMBER 


;BACKUP BY 
i sy THE TEST NUMBER AS AN INDEX 
3;FORM THE ADDRESS OF TEST POINTER 
2éSET LOOP ADDRESS TO DESIRED TEST 
:GO LOOP ON THE TEST 
7:CLEAN THE BAD TEST NUMBER OFF OF THE STACK 
TBR IF NO OCCURRED? 
« ERRORS FOR THIS TEST OCCURRED? 


t:SET LOOP ADDRESS TO LAST SCOPE 


::ZERO THE ERROR FLAG 

3:CLEAR THE NUMBER OF ITERATIONS 10 MAKE 
3 sESCAPE TO THE NEXT TEST 

te ereciencnmanl 


ielF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
77 INCREMENT ITERATION COUNT 
++ CHECK THE NUMBER OF ITERATIONS MADE 
IF MORE ITERATION REQUIRED 
::RE INITIALIZE THE ITERATION COUNTER 
22SET NUMBER OF ITERATIONS TO DO 
¢3 Cot TEST NUMBERS 
T TEST NUMBER IN APT MAILBOX 
ADDRESS 


7; SAVE E OOP ADDRESS 

-CLEAR THE ESCAPE FROM ERROR ADDRESS 

7 O0NLY ALLOW ONE(1) ERROR ON NEXT TEST 
SPLAY TEST NUMBER 

; -FUDGE a ADDRESS 


icFIXES P 
;2MAX. NUMBER OF ITERATIONS 


i:STARTING ADDRESS OF TEST 1 

::STARTING ADDRESS OF TEST ¢ 

2: STARTING ADDRESS OF TEST 

ze ING ADDRESS OF TEST 4 

ze TING ADDRESS OF TEST 5 

+ TING ADDRESS OF TEST 6 

2: STARTING ADDRESS OF TEST 7 

z2STARTING ADDRESS OF TEST 10 
2. 5TARTING ADDRESS OF TEST 11 
i:STARTING ADDRESS OF TEST 1 
i: STARTING ADDRESS OF TEST 1 

i: STARTING ADDRESS OF TEST 14 
i: STARTING ADDRESS OF TEST 15 
i:S3TARTING ADDRESS OF TEST 16 
7: STARTING ADDRESS OF TEST 17 


ao 
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_CZRMPAO RMOS/3/2 DSKLS TST 1 
COPE HANDLER ROUTINE SEQ 0234 
| 57436 015510 WORD -TST20+ STARTING ADDRESS OF TEST 20 
| 057440 015776 “WORD TST214 ISTARTING ADDRESS OF TEST 21 
| 057442 016112 “WORD -TST324 :ISTARTING ADDRESS OF TEST 2 
057444 016240 "WORD -TST3843 :ISTARTING ADDRESS OF TEST 2 
057446 016512 “WORD -TST2442 ISTARTING ADDRESS OF TEST 34 
057450 017012 "WORD -TST25+2 TISTARTING ADDRESS OF TEST 35 
057452 017436 "WORD -TST2642 ISTARTING ADDRESS OF TEST 36 
57454 017530 "WORD -TST2742 :ESTARTING ADDRESS OF TEST 27 
057456 020016 “WORD TST 3042 “ISTARTING ADDRESS OF TEST 
7460 020332 "WORD -TST3143 SISTARTING ADDRESS OF TEST 31 
057462 020622 "WORD -TST3243 ISTARTING ADDRESS OF TEST 32 
7464 02 "WORD -TST3849 STARTING ADDRESS OF TEST 33 
057466 021652 “WORD -TST3442 SISTARTING ADDRESS OF TEST 34 
57470 022144 "WORD TST3549 ISTARTING ADDRESS OF TEST 35 
057472 022466 “WORD TST 36+ ZESTARTING ADDRESS OF TEST 36 
057474 028026 "WORD -TST3742 SISTARTING ADDRESS OF TEST 37 
057476 023502 “WORD -TST4042 STARTING ADDRESS OF TEST 
57500 023766 "WORD -TST4142 SISTARTING ADDRESS OF TEST 41 
057502 024259 "WORD -TST4243 :ISTARTING ADDRESS OF TEST 
04 024652 "WORD -TST4842 SISTARTING ADDRESS OF TEST 4 
057506 025022 "WORD -TST4442 STARTING ADDRESS OF TEST 44 
057510 025402 "WORD -TST4543 SISTARTING ADDRESS OF TEST 45 
057512 026112 "WORD -TS74642 ISTARTING ADDRESS OF TEST 46 
057514 026406 "WORD -TST4742 ISTARTING ADDRESS OF TEST 47 
057516 027010 "WORD -TSTS0+#3 :ISTARTING ADDRESS OF TEST 50 
027244 “WORD -TST5143 + I STARTING SS OF TEST 51 
057522 027452 "WORD -TST5243 STARTING ADDRESS OF TEST 5 
057524 030 "WORD -TST5342 STARTING ADDRESS OF TEST 5 
057526 030556 "WORD -TST5442 STARTING ADDRESS OF TEST 54 
057530 0307 “WORD -TST55+42 STARTING ADDRESS OF TEST 55 
057532 031172 “WORD -TST56+2 ISTARTING ADDRESS OF TEST 56 
057534 “WORD «TST5749 :ISTARTING ADDRESS OF TEST 57 
057536 031546 "WORD - TST6042 ISTARTING ADDRESS OF TEST 60 
057540 031764 “WORD -TST6142 TISTARTING ADDRESS OF TEST 61 
057542 032132 “WORD TST6282 :ISTARTING ADDRESS OF TEST 
057544 032356 "WORD -TST6842 ISTARTING ADDRESS OF TEST 6 
057546 032472 "WORD -1ST6442 ISTARTING ADDRESS OF TEST 64 
7550 “WORD -TST65+2 ISTARTING ADDRESS OF TEST 65 
057552 033110 "WORD -TST66+2 ISTARTING ADDRESS OF TEST 
54 “WORD -TST6742 :ISTARTING ADDRESS OF TEST 67 
057556 033554 “WORD TST7042 :iSTARTING ADDRESS OF TEST 70 
057560 034024 "WORD -TST7142 ISTARTING ADDRESS OF TEST 71 
057562 0342 "WORD -TST7243 :ESTARTING ADDRESS OF TEST 72 
057564 034522 “WORD -TST7343 :ISTARTING ADDRESS OF TEST 
057566 034750 "WORD «TST 74+ ::STARTING ADDRESS OF TEST 7 
057570 035056 "WORD -TST7S+ STARTING ADDRESS OF TEST 75 
057572 035202 "WORD ‘TST 76+ LESTAATING ADDRESS OF TEST 76 ; 
057574 035832 "WORD TST?7+ <I STARTING ADDRESS OF TEST 77 
057576 03 "WORD TST100¢ Z:STARTING ADDRESS OF TEST 100 
057600 035616 "WORD TST101¢ TISTARTING ADDRESS OF TEST 101 
057602 0 “WORD 81102 :ESTARTING ADDRESS OF TEST 102 
057604 036210 "WORD -TST103+ STARTING ADDRESS OF TEST 10 
7606 036336 "WORD TST104+ :ESTARTING ADDRESS OF TEST 104 
057610 03654 "WORD TST105¢ ARTING ADDRESS OF TEST 105 
057612 0366 "WORD -TST106¢ Stan TING ADDRESS OF TEST 106 
057614 037066 "WORD -TST107+ “STARTING ADDRESS OF TEST 107 
057616 037264 “WORD -TST110¢ STARTING ADDRESS OF TEST 110 
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121150 


rororeroronorora 


T120+ 


+s STARTING ADDRESS OF TEST 


: ESTARTING ADDRESS OF TEST 


.SBTTL ERROR HANDLER ROUT INE 


STHIS ROUTINE WILL INCREMENT IME ERROR FLAG Ae@ THE ERROR canoer 


RTHIS ROUTINE WILL_INCREMENT THE ERROR FLAG AND T 


HE ERROR COUNT 
:*SAVE_THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 


;*AND GO TO ERRTYP ON ERROR 
:*THE SWITCH sail, oe haeee BY THIS ROUTINE ARE: 


INHIBIT Soon TYPEOUTS 


:*SW15= 1 
+ *SW13=1 
t*SW10=1 
:*SWwO9=1 
7*CALL 
:* ERROR 
SERROR: 
CKSWR 
7$: INCB 
BEQ 
MOV 
BIT 
BEQ 
TYPE 
1$: INC 
MOV 
SUB 
MOVB 
BIT 
BNE 
JSR 
TYPE 
20S: 
CMPB 
BNE 
MOVB 
JSR 
21$: BYTE 
BYTE 
22%: 
es: TST 
ae 
CKSWR 
3$: BIT 
BEQ 
MOV 
4$: TST 
BEQ 
MOV 


5$: 


BELL ON ERR 
LOOP ON ERROR 
N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 

2eTEST FOR ae | IN SOF T=-SWR 
SERFLG ii SET THE ERROR FLAG 
7$ :DON'T LET Tne FLAG GO TO ZERO 
STSTNM,@DISPLAY DISPLAY TEST NUMBER AND ERROR FLAG 
#B1T10,aSWR : BELL ON ERROR? 
1$ ziNO - SKIP 

; :RING BELL 
SERTTL s¢ T THE NUMBER OF ERRORS 
 clee :GET ADDRESS OF ERROR INSTRUCTION 
@SERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
#81T13,aSWR :zSKIP TYPEOUT IF SET 
20 3zSKIP TYPEOUTS 
—_—o 3:G0 TO USER ERROR ROUT INE 
MAPTENV,SENV 7 RUNNING IN APT MODE 

:zNO,SKIP APT ERROR REPORT 
SITEMB,21$ eeSET ITEM NUMBER AS ERROR NUMBER 
Se eSArhs , ;ZREPORT FATAL ERROR TO APT 
0 
22$ 2 3APT ERROR LOOP 
@SWR ;HALT ON ERROR 
3$ :3SKIP IF CONT INUE 

;HALT ON ERROR! 


22 TEST FOR CHANGE IN SOF T-SWR 


£01 T09.aSun 1. 32LOOP_ ON ERROR SWITCH SET? 


SLPERR, (SP) 
SE 


SCAPE 
5$ 
SESCAPE, 


72BR_ IF NO 
22FUDGE RETURN FOR LOOPING 
ae FOR AN ESCAPE ADDRESS 


(SP) FUDGE RETURN ADDRESS FOR ESCAPE 


SEQ 0235 


€ 3 
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:*TK SERVICE ROUTINE 

;*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

sy ag gh CHARACTER FROM THE INPUT BUFFER AND PUTTING 

-* 

;*1F THE CHARACTER IS A “CONTROL c** (°C) STKINT IS CALLED AND 
>*UPON RETURN EXIT IS MADE TO THE ‘‘CONTROL-C"' RESTART ADDRESS (SHUT) 


|ERROR HANDLER ROUTINE SEQ 0236 
4 960024 022737 054026 000042 CMP ss WSENDAD,a#42. Ss; ;ACT=11 AUTO=ACCEPT? 
x | 060032 00100 BNE 6$ 7 BRANCH IF NO 
060034 §00000 HALT TZ YES 
060036 6$: 
060036 000002 RTI RETURN 
- .SBTTL TTY INPUT ROUTINE 
FEAR AAA AERA AAA ARERR ERAEAERAREEREARAEARE RARER EERE 
*ENABL LSB 
060040 000000 $TKCNT: .WORD 0 NUMBER OF ITEMS IN QUEUE 
060042 000000 STKQIN: .WORD 0 ‘TINPUT POINTER 
060044 000000 $TKQOUT: .WORD 0 i SQUTPUT POINTER 
060046 $TKQSRT: .BLKB 1 = TTY KEYBOARD QUEUE 
060047 $TKQEND=. 
EVEN 
:*TK INITIALIZE ROUTINE 
[*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 
*eCALL: 
ie JSR PC. STKINT 
ie RETURN 
060050 005037 060040 $TKINT: CLR STKCNT :;CLEAR COUNT OF ITEMS IN QUEUE 
060054 012737 060046 060042 MOV WSTKOSRT,STKQIN ::MOVE THE STARTING ADDRESS OF THE 
060062 013737 060042 060044 MOV STKQIN,STKQOUT ::QUEUE INTO THE INPUT & OUTPUT POINTERS. 
060070 012737 060120 000060 MOV ASTKSRV aA TKVEC Zi INITIALIZE THE KEYBOARD VECTOR 
060076 012737 000200 000062 MOV #200, aATKVEC+2 ::'BR' LEVEL 4 
060104 005777 121052 TST a$TkB ZCLEAR DONE FLAG 
060110 012777 000100 121042 MOV #100, a$TKS : TENABLE TTY KEYBOARD INTERRUPT 
060116 000207 RTS PC SZRETURN TO CALLER 

060120 117746 121036 $TKSRV: MOVB — aSTKB,-(SP) ::PICKUP THE CHARACTER 

060124 042716 177600 BIC #°C177, (SP) :3STRIP THE JUNK 

060130 021627 000003 CMP (SP) #3 tr1S IT A CONTROL C? 

060134 001007 BNE 1$ : H IF NO 

060136 104401 0612 TYPE ,$CNTLC tITYPE A CONTROL-C (C) 

060142 004737 060050 JSR PC $TKINT S:INIT THE KEYBOARD 

060146 005726 TST (SP) + [CLEAN UP STAC 

060150 000137 055642 JMP SHUT 3: C RESTART 

060154 021627 000007 1$: CMP (SP) #7 t:1S IT A CONTROL G? 

060160 001004 BNE 3: H IF NO 

060162 022737 000176 001154 CMP ASWREG, SWR t:1$ SOFT=SWR SELECTED? 

060170 001500 BEQ 6$ 1:60 TO SwWR CHANGE 

06017 2s: 
060172 022737 000001 060040 CMP #1, $TKCNT i218 THE QUEUE FULL? 
060200 001004 BNE 3$ + SBRANCH IF 
060202 104401 001212 TYPE $BELL SIRING THE TTY BELL 
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060 005726 TST (SP) + :; CLEAN CHARACTER OFF OF STACK 
060210 000451 BR 5$ TZ EXIT 
060212 021627 000023 3$: CMP (SP) ,#23 ::1S IT A CONTROL=S? 
060216 001021 BNE 32$ 35 CH IF NO 
060220 005077 120734 L asTkS :DISABLE TTY KEYBOARD INTERRUPTS 
060224 005726 TST (SP) + t:CLEAN CHAR OFF STA 
060226 105777 120726 31$: TSTB = aSTKS ::WAIT FOR A CHAR 
060232 100375 BPL 31$ : LOOP UNTIL ITS THERE 
060234 117746 120722 MOVB  a$TKB,-(SP) 7GET THE CHARACTER 
060240 042716 177600 BIC #°C177, (SP) ::MAKE IT 7-BIT ASCII 
060244 022627 000021 CMP (SP)+,#21 3318 IT A CONTROL-0? 
060250 001366 BNE 31$ H IF NO 
060252 012777 000100 120700 MOV #100, a$TKS : FREENABLE TTY KEYBOARD INTERRUPTS 
060260 000002 RTI RETURN 
060262 005237 060040 32$: INC STKCNT +: COUNT THIS CHARACTER 
021627 000140 CMP (SP) ,#140 ::1S IT UPPER CASE? 
060272 002405 BLT ::BRANCH IF YES 
| 060274 021627 000175 CMP (SP) ,#175 t:1S IT A SPECIAL CHAR? 
060300 00300 BGT 4$ ::BRANCH IF YE 
060302 042716 000040 BIC #40, (SP) ::MAKE IT UPPER CASE 
060306 112677 177530 4$: MOVB  (SP)+,a$TKQIN ::AND PUT IT IN QUEUE 
060312 005237 060042 INC $TKQIN i UPDATE THE POINTER 
060316 023727 060042 060047 CMP STKQIN,#STKQEND ;;GO OFF THE END? 
060324 001003 BNE (CH IF NO 
060326 012737 060046 060042 MOV WSTKQSRT,STKQIN ::RESET THE POINTER 
060334 000002 S$: RTI +: RETURN 
3 J RARER AAA ARERAEAEAEEAEEEEAAEEEAERAEAEAERAERRAEEEAEEEREEREREEREEE EEE 
> *SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
s*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
:*CALL WHEN OPERATING IN TTY INTERRUPT MODE. 
060336 022737 000176 001154 $CKSWR: CMP ASWREG, SwWR s1S THE SOFT=SWR SELECTED 
060344 001124 BNE 15$ SiEXIT IF NOT 
060346 105777 120606 TSTB  a$TKS :1S A CHAR WAITING? 
060352 100121 BPL 15$ 315 NOT, EXIT 
060354 117746 120602 MOVB  a$TKB,-(SP) 
060360 042716 177600 BIC pe (SP) + MAKE IT 7-BIT ASCII 
060364 021627 000007 CMP (SP) a? ii18 IT A CONTROL=G? 
060370 001300 BNE 2$ ic1F NOT, Pur IT IN THE TTY QUEUE 
2 FARRAR AAA ERAEEEEAERAAERARAAERAAEAAAEREREREAAEEAEREREEREREE 
[*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
> *ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
>*CONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 
060372 123727 001150 000001 4s: CMPB Ss SAU, #1 :ARE WE RUNNING IN AUTO-MODE ? 
060400 001674 BEQ 2$ [BRANCH IF 
060402 005726 TST (SP)+ 22 CLEAR CONTROL ~G OFF STACK 
04 004737 060050 JSR PC ,$TKINT FLUSH THE A INPUT QUEUE 
060410 005077 120544 CLR astks [DISABLE TTY KEYBOARD INTERRUPTS 
14 112737 000001 001151 MOVB #1, SINTAG IST INTERRUPT MODE INDICATOR 
060422 104401 061246 TYPE -SCNTLG 3 ECHO THE CONTROL-G (*G) 
060426 104401 06125 53 $GTSWR: TYPE “SMSWR TVPE CURRENT CONTENTS | 
0604 00017 MOV SWREG, -(SP) it oave SWREG FOR TYPEOU 
0604 36 TYPOC [GO TYPE=-OCTAL ASCTITALL DIGITS) 
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060440 
060444 
060446 
060450 
060454 
060456 
060472 
060474 
Renee 
060512 
060514 
060522 
060532 
060540 
060544 
060552 
060554 
060560 
060562 
060574 
060606 
060610 
060616 
060624 
060632 
060636 
060640 
060650 
060652 
060654 
060656 
060664 

70 
060672 
060676 


104401 
005046 
005046 
105777 
100375 
117746 
042716 


061264 


120504 


000060 
000002 


000002 
177776 
001216 


000001 
120436 


120364 


000001 
120342 


19$: CLR 


7$: TSTB 


8$: JMP 
9$: CMP 


208: ADD 
BR 


10$: CMP 


, SMNEW 
=(SP) 

-(SP) 

asTKS 

7$ 
@$TKB,=(SP) 
#*(177, (SP) 
(SP) #3 

9 

»$CNTLC 
SINTAG, #1 


#100, a$TKS 
SHUT 


(SP) ,#25 
10 


AF RBGRE 
SSRERS: 
wm 8 

$ ¢ 

- N 

+ 


f oo eT ewe 
SgeeGa 
c 


as 


; PROMPT FOR NEW SWR 
4 i COUNTER 
THE NEW SWR 
+: CHAR THERE ? 
;z1F NOT TRY AGAIN 


:PICK UP CHAR 
ieMAKE IT 7=BIT ASCII 


ri ITA a 
:BRANCH IF 
ieYES, ECHO CONTROL ~C (*0) 
ee UP ST. ACK 
REENABLE TTY KEYBOARD INTERRUPTS? 
BRANCH _IF NO 
TALLOW TTY KEYBOARD INTERRUPTS 
3:CONTROL=C RESTART 
2i1S IT A_CONTROL-U? 
CH IF NOT 
iiYES, ECHO CONTROL-U (“U) 
GNORE 


PREVIOUS INPUT 
ZILET'S TRY IT AGAIN 


31S IT A <CR>? 
$3 CH IF NO 
iiYES, i ds ne FIRST CHAR? 

ee VE NEW SwWR 

7 CLEAR UP STACK 

et a <CR> AND <LF 

rt uy xD INTERRUPTS? 


7 RE-ENABLE TTY KBD INTERRUPTS 


P=OFF ASCII 
2318 THIS THE FIRST CHAR 
‘INO, SHIFT PRESENT 

NO. tah R 


+: TYPE ?<CR><LF> 
72 SIMULATE CONTROL-U 





SEQ 0238 
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32 061 
061036 orecie 177777 
30 
020327 061224 


061222 
061222 


SBE 
Ww 
N 
Rae 
Ww 
~s 


SERS 


112737 
112737 000134 
NN ens'g 061222 


izer3 000025 


ss 
os 


5 
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000002 


061222 


061222 


tis ROUTINE WILL INPUT & SINGLE CHARACTER FROM THE TTY 


::GET A CHARACTER FROM THE QUEUE 
3 CHARACTER _IS ON THE STACK 
i:WITH PARITY BIT STRIPPED OFF 


; ;PUSH OWN THE PC AND 
ZIGET READY FOR A CHARACTER 
T NEW PS ON STACK 
PUT NEW PC ON STACK 
‘POP NEW PC AND PS 


;zWAIT ON A CHARACTER 
3 DECREMENT wate 


32GET ONE CHARA 
: ATE THE POIN 


:UPDA TER 
STKQOUT ,#STKQEND- "gDID LY ay OFF OF THE END? 


2 
#STKQSRT, $tkaour’ "splot THE POINTER 


ee 
FERRARA AREER EERE EE 


zSTHIS: ROUTINE WILL INPUT A STRING FROM THE TTY 


ie RDCHR 
tt RETURN HERE 
** 
$SRDCHR: MOV (SP) ,=(SP) 
MOV (SPS, 2(SP) 
CLR 4(S 
CLR *(3p) 
MOV #64$,-(SP) 
RTI 
648: 
1$: TST STKCNT 
BEQ Is 
DEC $k 
MO SS TROOUT, 4(SP) 
INC $TKQOUT 
CMP 
BNE 
MOV 
2s: RTI 
3* RDLIN 
;* RETURN HERE 
** 
SRDLIN: MOV R3,-(SP) 
CLR -(SP) 
1$: MOV ASTTYIN,R3 
2$: CMP ASTTYINGS. .R3 
BLOS 4$ 
RDCHR 
MOVB  (SP)+, (R3) 
10$ CMPB Ss #177, (R3) 
BNE 5$ 
TST (SP) 
BNE 6$ 
MOVB = #"\, 98 
LS 
MOV #-1, (SP) 
6$: DEC R 
CMP R3,ASTTYIN 
BLO 4 
MOVB = (R3),9$ 
TYPE 9$ 
BR 3s 
5$: TST (SP) 
BEQ 7$ 
MOVB = #"\ 98 
TYPE A. 
CLR (SP) 
7$ C(MPB ss #25, (R3) 
BNE 8$ 


3; INPUT A STRING FROM THE TTY 
:sADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
32 TERMINATOR WILL BE A BYTE OF ALL O'S 


CHARACTER 
A 


i:z:SET THE RUBOUT KEY 
; BACKUP BY ONE 
2s STACK EMPTY? 
7;BR_IF YES 
::SETUP TO TYPEOUT THE DELETED CHAR, 


;:BR IF NO 
77 TYPE A BACK SLASH 


32CLEAR THE RUBOUT KEY 
21S CHARACTER A CTRL U? 
77BR IF NO 





SEQ 0239 
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06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 


— 


— ss ss SS 2 ts YY ts 

a etd ed oe dd 
— 

SSESESLE KEES § 


& 
st 
FS 


061200 
061202 
061204 


NWA By 
aA ~w 
aN o 

ooo°0o°o 


BSENSS 


SS es 
Win 
REN 


06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 
06 


¥ 
So 


g 


SEE8 


) 
5 
™m 


oS 
= 


=38 
8s 


: 


r 
= 





TST 1 


061241 
000022 
001217 
061224 
001216 
061222 
061222 
000015 


177777 
001220 


000004 
061224 


000004 000002 





3 
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TYPE SCNTLU sz TYPE A CONTROL ‘U"’ 
BR +:GO START OVER 
8$: CMPB ss #22, (R3) t:IS CHARACTER A ‘"*R''? 
BNE $ gé CH IF NO 
CLRB —s- (3) :CLEAR THE CHARACTER 
TYPE  ,$CRLF T:TYPE A 'CR' & ‘LE’ 
TYPE STTYIN ::TYPE THE INPUT STR 
5 ::GO PICKUP ANOTHER CHACTER 
4$ TYPE $QUES S:TYPE A 
BR :: CLEAR THe BUFFER AND LOOP 
3$: MOVE (R3) ,9$ t:ECHO THE CHARACTER 
CMPB ss #15, (R3)+ 2s CHECK FOR. RETURN 
BNE 2$ LOOP IF NOT RETURN 
CLRB = = 1(R3) +: CLEAR RETURN (THE 15) 
TYPE ,$LF t: TYPE A LINE FEED 
TST (SP) + t:CLEAN RUBOUT KEY FROM THE STACK 
MOV (SP)+,R3 SIRESTORE R3 
MOV (SP) ,=(SP) ::ADJUST THE STACK AND PUT ADDRESS OF THE 
MOV 4(SP5 ,2(SP) i FIRST ASCII CHARACTER ON IT 
Moy ASTTYIN,4(SP) 


3 ;RETURN 
9$: -BYTE 0Q 1} STORAGE FOR ASCII CHAR, TO TYPE 
-BYTE 0 TERMINATOR 

STTYIN: .BLKB_ 8. ; ;RESERVE 8 BYTES FOR TTY iNPUT 
SCNTLC: .ASCIZ /*C€/<15><12> ::CONTROL *'C’' 

: Z /*U/<15><12> 3 = CONTROL 
SCNTLG: .ASCIZ /*G/<15><12> ::CONTROL *'G’’ 

: .ASC es =/ 


223 


-EVEN 
-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


FF RARER EAREREEAEERAERERAEAREAAEEREREAERAAEEREREREREREEE 


s*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
3 s CHANGE IT TO BINARY. 
**® Ls 


j* RDOCT :7READ AN OCTAL NUMBER 
* RETURN HERE LOW ORDER BITS ARE ON TOP OF THE STACK 
;* [HIGH ORDER BITS ARE IN $HIOCT 
SRDOCT: MOV (SP) ,=(SP) zzPROVIDE SPACE FOR THE 
MOV 4(SP5 ,2(SP) 7: INPUT NUMBER 
MOV = (SP) +:PUSH RO ON STACK 
MOV R1,~(SP) +:PUSH R1 ON STACK 
~~ (SP 7:PUSH R2 ON STACK 
1$ RDLIN ::READ AN ASCI 
(SP)+,RO 7:GET ADDRESS OF 1ST CHARACTER 
CLR 4 [CLEAR DATA WORD 
28: MOVB (RO)+,-(SP) z:PICKUP THIS CHARACTER 
BEQ 3$ t:1F ZERO GET OUT 
ASL R1 ee 2 
R2 
ASL R1 r286 
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READ AN OCTAL NUMBER FROM THE TTY 


$108 rrr 


000012 
061376 


10 


000004 000002 
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ROL R2 
BIC #*C7, (SP) 
ADD (SP)+,R1 
BR 2$ 

3$: TST (SP) + 
MOV R1,12(SP) 
MOV R2,$HIOCT 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 
RTI 


$HIOCT: .WORD 0 
-SBTTL ‘TRAP DECODER 


SEQ 0241 


izSTRIP THE ASCII JUNK 
+ ADD IN THIS DIGIT 


sk 
ZI CLEAN errs FROM STACK 


:2SAVE THE RESUL 


33POP STACK INTO R2 
32POP STACK INTO R1 
+ ¢POP STACK INTO RO 


RETURN 
;7HIGH ORDER BITS GO HERE 


FEAR EERERERREAAEERREREERAERERREEEEAEEREREKAEEEEEE 


SATHIS ROUTINE WILL Mg A THE ee BYTE OF THE ‘'TRAP** INSTRUC 


:*AND_USE IT TO INDEX 
:*GO TO THAT ROUTINE. 


STRAP: MOV 2(SP) ,-(SP) 
BIC #20, (SP) 
MOV #1$.-(SP) 
RTI 
1$: MOV RO,=(SP) 
MOV 2(SP) ,RO 
TST =(RO) 
MOVB = (RO) ,RO 
ASL R 
MOV $TRPAD (RO) ,RO 
RTS RO 


CTION 


HROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 


: ¢ ASSUME THE STATUS OF 
i THE 2. NOT ALLOW 


3: T-BIT 


TRAP. 
2eSET a | NEW STATUS 
73GET TRAP ADDRESS 


; sBACKUP 


BY 2 
:3GET RIGHT BYTE OF 


TRAP 


3 POSITION FOR INDEXING 
TC TABLE 


i ; INDEX 


32G0 TO ROUTINE 


:zTHIS IS USE TO HANDLE THE ‘'GETPRI'* MACRO 


STRAP2: MOV (SP) ,=(SP) 


MOV 4(SP),2(SP) 
RTI 
.SBTTL TRAP TABLE 


;;MOVE T 
; :MOVE 


THE P 
; ;RESTORE THE “psu 


z*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


[*BY THE "TRAP’’ INSTRUCTION. 
: ROUT INE 
STRPAD: .WORD 





33CALL 
77 CALL=TYPDS 
3; CALL=TYPBN 


3; CALL=GTSWR 
3; CALL=CKSWR 


TRAP+1 (104401) 
Lama $3 4 $ 
TRAP+5( 1044035) 
TRAP +4 (104404) 
TRAP+5 (104405) 
TRAP+6( 104406) 
TRAP+7( 104407) 


TTY TYPEOUT ROUTINE 
TYPE OCT. 


ROS 

PER Ast CALL) 
TYPE DECIMAL ats (WITH SIGN) 

TYPE BINARY (ASCII) NUMBER 


GET SOFT=SWR SETTING 


TRAP+10(104410) TEST FOR CHANGE IN SOF T~Suit 
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TRAP TABLE 





SEQ 0242 
061474 960700 SRDCHR ;;CALL=RDCHR = TRAP#+11(104411) TTY TYPEIN CHARACTER ROUTINE 
061476 06077 $SRDLIN ;;CALL=RDLIN TRAP +1@(106618) TTY TYPEIN STRING ROUTINE 
061500 061276 $R Z:CALL=RDOCT =‘ TRAP+13(104413) READ AN OCTAL NUMBER FROM TTY 
061502 055710 SSAVREG ;;CALL=SAVREG TRAP+14(104414) SAVE RO=R5 ROUTINE 
061504 055746 SRESREG ois ALL=RESREG TRAP+15(104415) RESTORE RO=R5 ROUTINE 
11 .SBTTL POWER DOWN AND UP ROUTINES 
3 MAAAAAALALALALAALEAL ALIAS ELE LET ESE EE EEC CCC CPS CTC STAC S SSSA 
“POWER DOWN ROUTINE 
061506 012737 061646 000024 $PWRDN: MOV #SILLUP .a#PuR :SET FOR FAST UP 
061514 012737 000340 000026 MOV #34 LOPURVEC SS © epRio :7 
061522 010046 MOV RO,=(SP) : PUSH RO ON STACK 
061524 010146 MOV R1,=(SP) ::PUSH R1 ON STACK 
526 010246 MOV R2,-(SP) +: R2 ON STACK 
061530 010346 MOV R3,-(SP) t: ON STACK 
061532 010446 MOV R4,-(SP) 7:PUSH R4 ON STACK 
061534 010546 MOV R5,=(SP) 33 RS ON STACK 
061536 017746 117412 MOV aSWR,-(SP) t:PUSH @SWR ON STACK 
061542 010637 061652 MOV SP, SSAVR6 =: SAVE SP 
1546 012737 061560 000024 MOV WSPWRUP , @#PWRVEC’ ;;SET UP VECTOR 
061554 000000 HALT 
061556 000776 BR 72 ZHANG UP 
FEAR ERERAEE AERA REEREERERRRERERRREE EE 
“POWER UP ROUTINE 
061560 012737 061646 000024 $PwRUP: MOV #SILLUP, QFPURVEC _EiSET FOR FAST DOWN 
061566 013706 061652 MOV SSAVR6,5 sP 
061572 005037 061652 CLR SSAVR6 SIWAIT LOOP FOR THE TTY 
061576 905237 061652 1$: INC SSAVR6 Si:WAIT FOR THE INC 
061602 1375 BNE 1$ $3 
061604 012677 117344 MOV (SP)+, aSwWR 7:POP STACK INTO aSwWR 
061610 012605 MOV (SP)+_R5 ::POP STACK INTO R5 
061612 012604 MOV (SP) +~R4 3 STACK | 
061614 012603 MOV (SP)+,R3 7:POP STACK INTO R3 
061616 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
061620 012601 MOV (SP)+,R1 3:POP STACK INTO R1 
061622 012600 MOV (SP)+,RO ::POP STACK INTO RO 
061624 012737 061506 000024 MOV SSPON OFPURVEC 7 SET P THE POWER DOWN VECTOR 
061 012737 000340 000026 MOV #340, a#PWRVEC+2 ;:PRIO: 
061640 104401 TYPE [REPORT THE POWER FAILURE 
061642 061654 SPWRMG : giro SPOWER [POWER FAIL MESSAGE POINTER 
061646 000000 SILLUP: HALT £3 THE POWER UP SEQUENCE WAS STARTED 
061650 000776 BR 72 3 BEFORE THE POWER DOWN WAS COMPLETE 
061652 000000 SSAVR6: ::PUT THE SP HERE 
061654 015 012 120 $POWER: “ASCIZ <15><12>" POWER’’ 
12 .SBTTL APT COMMUNICATIONS ROUTINE 
° 2 RAAAAAAARERAAEAARAREEEEEEEREEEEE REAAAARAARERAAERERERREEREEEEEEEEE 
061664 112737 000001 130 $ATY1: MOVB #1.SFFLG 7270 REPORT FATAL ERROR 
061672 1197 7? 000001 126 $ATY3: nove a SFG ::70 TYPE A MESSAGE 
061708 100399 000001 062130 S$ATY4: MOVB 4#1,SFFLG 7:70 ONLY REPORT FATAL ERROR 
06171 SATYC: 
061710 010046 MOV RO,=(SP) PUSH RO ON STACK 
061712 010146 MOV R1,=(SP) PUSH R1 ON STACK 





L 
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APT COMMUNICATIONS ROUTINE SEQ 0243 
061714 105737 062126 TSTB = SMFLG :$HOULD TYPE A MESSAGE? 
061720 001450 BEQ $ 
061722 122737 000001 001242 CMPB  —s HAPTENV, SENV 3 OPERATING UNDER APT? 

061730 001031 BNE 3$ 331 NOT: 
061732 132737 000100 001743 BITB §§#APTSPOOL,SENVM ::SHOULD SPOOL MESSAGES? 
061740 001425 BEQ $ Z1F NOT: BR 
061742 017600 000004 MOV a4 (SP) ,RO tIGET MESSAGE AGE ADDR. 
061746 062766 000002 000004 ADD He. (SP) ETURN ADDR. 
061754 005737 001222 1$: ° TST :3SEE IF BONE w LAST XMISSION? 
061760 001375 BNE ge SIF NOT: WAIT 
061762 010037 001236 MOV RO, SMSGAD ::PUT ADDR IN MAILBOX 
061766 1057 2s: TSTB ss (RO) + FIND END OF MESSAGE 
061770 001376 BNE 2$ 
061772 163700 001236 SUB SMSGAD ,RO ::SUB START OF MESSAGE 
061776 006200 ASR RO ::GET MESSAGE LNGTH IN WORDS 
062000 010037 001240 MOV RO, SMSGLGT [PUT LENGTH IN MAILBOX 

012737 000004 001222 MOV #4. SMSGTYPE [:TELL APT TO TAKE MSG. 
062012 000413 BR 5$ 
062014 017637 000004 062040 3s: MOV a4 (SP) ,4$ yzPUT MSG ADDR IN JSR LINKAGE 
062022 062766 000002 000004 ADD #2,4(SP) - BUMP RETURN ADDRESS 
062030 013746 177776 MOV 177776,=(SP) PUSH 177776 ON STACK 
062034 004737 056532 JSR PC, $TYPE Z:CALL TYPE MACRO 
962040 000000 4$: “WORD 0 
$6504 sks 105737 062130 10$: STB  S$FFLG ::SHOULD REPORT FATAL ERROK? 
062046 001416 BEQ 12$ ti IF NOT: 
062050 005737 001242 TST SENV : RUNNING UNDER APT? 
062054 001413 BEQ 12$ [IF NOT: BR 
062056 005737 001222 11$: TST SMSGTYPE 3 3F INISHED LAST MESSAGE? 
062062 001375 BNE 11$ Z1F NOT: WAIT 
062064 017637 000004 001224 MOV a4(SP),$FATAL  ::GET ERROR # 
062072 62766 000002 000004 ADD #2,4(SP) -BUMP RETURN ADDR. 
062100 005237 001222 INC $MSGTYPE 3 TELL abt TO TAKE ERROR 
062104 105037 0621 12$: CLRB  $FFLG 33 CLEAR FATAL FLAG 
062110 105037 127 CLRB = SLFLG 7. CLEAR LOG FLAG 
062114 105037 126 CLRB 7: CLEAR 
062120 012601 (SP)+,R1 ::POP STACK INTO R1 
062122 01 (SP)+.RO [POP STACK INTO RO 
062124 000207 RTS PC + RETURN 
062126 000 SMFLG: .BYTE 0 [:MESSG. FLAG 
062127 000 SLFLG: .:BYTE 0 ':LOG FLAG 
062130 000 SFFLG: .BYTE 0 TIFATAL FLAG 

000200 APTSIZE = 200 

st8s ra eg 

= 
000040 APTCSUP = 040 
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CONSOLE MESSAGES 
a=a 
@ALL@<CRLF > 
a?a 


a, a ' 
<CRLF>@TYPE HELP TEXT (Y/N) ? @ 


<CRLF>@CHANGE ADDRESSES (Y/N) ? @ 
<CRLF>@USE SAME DEVICES (Y/N) ? @ 
<CRLF>@BUS ADDRE 
@ LIMITS = LO= 16 
@VECTOR ADDRESS 

@ LIMITS 


Sa 

0000, HI= 17XXXxX@<CRLF> 
- LO= 0, HI= 1000@<CRLF><LF> 
@BR LEVEL 

@ LIMITS = LO= 0, HI= 7@<CRLF><LF> 
<CRLF> 


<CRLF>@TYPE ‘'A’’ TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)@ 
a TERMINATE INPUT WITH A CARRIAGE RETURN.@ 


L 
@ 7ILLEGAL INPUT@<CRLF> 
<CRLF>/DRIVE(S): / 
/DRIVE/ 
/ IS LOAD D 
/ NOT PRESE 
/ NOT AVAILABLE/ 


SEQ 0244 
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20 
21 
22 


54 
55 062752 
57 062752 020000 
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.SBTTL FUNCTION CODE TABLE 


;THE FUNCTION CUDE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR 
SEACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS: 


ATA = BIT 15_IS SET_IN THE ENTRY FOR A GIVEN FUNCTION CODE 


z1F_ATA SHOULD BE SET WHEN THE HAT ATA SH > wor IS EXECUTED, OTHERWISE, 


COMMAND. _ THE 
2 MKF! ‘ist’, 


:BIT : mY he INDICATING THA NOT NORMALLY BE SET. 
:NOTE T ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH 
:1T IS NOT EXPECTED AS A RESULT OF THE COMMAND. 


WCE - BIT 14 IS SET_IN THE ENTRY FOR A GIVEN FUNCTION CODE 
LIF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND. 


OPI = BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
LIF OPI ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 


IVC = BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF IVC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 


WLE ~ BIT 11 IS SET IN THE ENTRY FOR A GIVEN A AF CODE 
IF WRITE ERRORS ARE ENABLED DURING THE EXECUTION ort T COMMAND. 
;THE WRITE ERRORS WHICH ARE ENABLED ARE ‘WLE'', ‘WCF’ DPE" "UPE’’. 


IAE = BIT 10 IS SET _IN THE ENTRY — A GIVEN FUNCTION CODE 
IF INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND. 


AOE - BIT 09 IS SET IN THE ENTRY FOR A GIVEN try CODE 
IF READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE 
A) sr BY THIS BIT ARE ‘‘TRE'', ‘DLT'', "NEM, 
BIT 08 IS NOT USED. 
HCE = BIT 07 IS SET IN THE ENTRY FOR A GIVEN griy- CODE 
TIF HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 
;HEADER ERRORS INCLUDE "MCRC’’, ‘HCE’’, ‘FER’, AND ‘BSE’. 
ECH ~ BIT 06 IS SET IN THE ENTRY FOR A GIVEN ay 4 CODE 
TIF DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTION OF T 
COMMAND. THESE ERRORS INCLUDE 'MDPE'', ‘DCK’', AND ‘ECH'*. 
BIT OS IS NOT USED. 
BIT 04 IS NOT USED. 
BIT 03 IS NOT USED. 
BIT 02 IS NOT USED. 
BIT 01 IS NOT USED. 


ILF - BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL. 


FNCDTB: :FUNCTION CODE TABLE 
-WORD OP] ;NOP 


SEQ 0245 
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OPI !ATA'ILF!IVC 
ATA!OPI 'IVC! JAE 
ATA!OPI ! IVC 
OP 

OP] 'ATA! IVC 


OPI !ATA! IVC 
OPI 


OPI 

OPI!ATA!ILF ! IVC 
OPI!ATA!ILF! IVC 
ATA! OPI! IVC! IAE 
OPI!ATA!ILF!IVC 
OPI!ATA!ILF! IVC 
OPI !ATA!ILF! IVC 
OPI!ATA!ILF! IVC 


OPI ATA! ILF ! IVC 
WCE!OPI! IVC! IAE!AOE!HCE!ECH 
WCE !OPI! IVC! JAE! AOE !HCE!ECH 
OPI!ATA!ILF! IVC 
OPI!ATA!ILF!IVC 

OPI: IVC; WLE t IAF ' “OE !HCE 
OPI! IVC!WLE!IA_ : AOE 
OPI!ATA!ILF! IVC 
OPI !ATA!ILF! IVC 
OPI! IVC! IAE! AOE! HCE !ECH 
OPI! IVC! JAE!AOE! HCE !ECH 
OPI !ATA!ILF! IVC 
OPI !ATA!ILF! IVC 


: ILLEGAL FUNCTION (2) 
RE CALIBRATE 
;DRIVE CLEAR 

RELEASE 


SOF FSET 
:RETURN TO were 


: ILLEGAL F ION 
WRITE CHECK DATA 
WRITE CHECK HEADER “oy DATA 
ILLEGAL FUNCTION (54) 
ZTLLEGAL | nasa (56) 


;WRITE HEADER AND DATA 
T4LLEGAL FUNCTION (64) 
; ILLEGAL FUNCTION (66) 
;READ DATA 

;READ HEADER AND DATA 
; ILLEGAL FUNCTION (74) 
; ILLEGAL FUNCTION (76) 


SEQ 0246 
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ATTENTION (A TABLE SEQ 0247 

1 -SBTTL ATTENTION (ATA) TABLE 

$ 063052 001 ATNTBL: .BYTE 1. 

4 063053 002 BYTE 2. 

5 063054 004 -BYTE 4. 

6 063055 010 -BYTE 8. 

7 063056 020 -BYTE 16. 

8 063057 040 BYTE 32. 

9 063060 100 -BYTE 64 

7 063061 BYTE 128 


a i 
—_— -— 
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DATA PATTERN TABLE 





SEQ 0248 


| } SBTTL DATA PATTERN TABLE 

3 063062 RGDTPT: 

4 063062 MIXED: 

5 063062 000000 WORD 0. 

6 063064 000001 “WORD (1. 

? 063066 000003 "WORD 3. 

8 063070 000007 “WORD 7. 

9 063072 000017 "WORD 15, 

10 063074 000037 “WORD 31. 

11 063076 77 "WORD 63. 

12 063100 000177 “WORD 127. 

13 063102 000377 "WORD 255. 

1% 063104 000777 “WORD 511. 

15 063106 001777 “WORD 1023. 

16 063110 003777 “WORD 2047. 

17 063112 007777 “WORD 4095. 

18 063114 017777 “WORD 8191. 

19 063116 037777 “WORD 16383. 

20 063120 077777 “WORD 32767. 

51 063122 177777 ONES: “WORD 65535. 

52 063124 177777 “WORD 65535. 

53 063126 077777 “WORD 32767 

54 063130 037777 “WORD 16383 

5§ 063132 017777 "WORD 8191. 

56 063134 007777 "WORD 4095. 

57 063136 003777 "WORD 2047. 

58 063140 001777 “WORD 1023. 

59 063142 000777 "WORD 511. 

30 063144 000377 “WORD 255. 

31 063146 000177 “WORD 127: 

32 063150 000077 "WORD 63. 

33 063152 000037 "WORD 31. 

34 063154 000017 “WORD 15. 

35 063156 000007 "WORD 7. 

36 063160 000003 "WORD 3. 

37 063162 000001 “WORD 1. 

38 063164 000000 ZEROS: WORD 0. 

39 063166 000000 “WORD O.. 

40 063170 000001 "WORD 1. 

41 063172 000002 "WORD 2. 

42 063174 000004 "WORD G. 

3 063176 000010 "WORD 8. 

44 063200 000020 "WORD ‘16. 

45 063202 000040 "WORD 32. 

46 063204 000100 "WORD 64. 
000200 "WORD 128. 

48 063210 000400 “WORD 256. 

49 063212 001000 "WORD 512. 

331 "WORD 1024, 

51 063216 004 “WORD 2048. 
010000 WORD 4096: 

53 063222 020000 WORD 8192. 
040000 WORD 16384, 

55 063226 100000 WORD 32768. 

56 063230 100000 WORD 32768 


0632 ° ‘ 
57 063232 040000 -WORD 16384. 
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DATA PATTERN T SEQ 0249 
58 063234 020000 .WORD 8192 
59 063236 010000 WORD 4096 
60 063240 004000 -WORD 2048 
61 063242 002000 WORD 1024 
62 063244 001000 WORD 512. 
63 063246 0004 -WORD 256. 

063250 000200 WORD 128. 
65 063252 000100 «WORD 64. 
54 000040 WORD 32. 
67 063256 000020 .WORD 16. 
260 000010 .WORD 8. 
69 063262 000004 WORD 4 
3264 000002 «WORD 2 
66 000001 WORD 1 
72 063270 000000 WORD 0 
3272 177777 «WORD 65535 
74 063274 177776 . WORD 5534 
75 063276 177774 -WORD 65532. 
06 177779 -WORD 65528 
77 063302 7760 -WORD 65520 
177740 . WORD 5504 
177700 «WORD 65472 
10 177600 -WORD 65408 
81 063312 177400 -WORD 65280 
82 77000 «WORD ‘65024 
83 063316 176000 «WORD 64512 
174000 -WORD 63488 
85 063322 170000 -WORD 61440 
86 063324 160000 -WORD 57344 
326 140000 -WORD 49152 
330 100000 . WORD 
89 063332 000000 . WORD 
334 000000 . WORD 
91 063336 100000 -WORD 32768 
340 140000 -WORD 49152 
93 063342 160000 «WORD 57344 
170000 «WORD 61440 
346 174000 -WORD 63488 
06. 76000 . WORD 
97 063352 177000 «WORD 65024 
98 063354 177400 -WORD 65280 
99 063356 177600 -WORD 65408 
100 063360 177700 -WORD 65472 
101 063362 177740 . WOF 
102 063364 7760 -WOKD 65520 
103 366 177770 -WORD 65528 
104 063370 177774 «WORD 65532 
105 063372 177776 WORD 65534. 
106 063374 177777 WORD 65535. 
107 063376 125252 «WORD 436 
108 0634 152525 . WORD 90./2 
109 063402 125252 . WORD 
110 0634 177777 WORD 65535 
111 063406 177776 WORD 65534 
112 063410 177775 WORD 65533 
113 063412 177773 -WORD 65531. 
114 063414 177767 -WORD 65527. 
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DATA PATTERN TABLE SEQ 0250 
115 063416 177757 -WORD 65519. 
116 063420 177737 -WORD 65503. 
117 063422 177677 «WORD 65471 
118 063424 177577 -WORD 65407 
119 063426 177377 -WORD 65279 
120 063430 176777 -WORD 65023 
121 063432 175777 WORD 64511 
122 063434 173777 -WORD 63487 
123 36 167777 -WORD 61439. 
124 063440 157777 «WORD 57343 
125 063442 137777 -WORD 49151 
126 063444 077777 -WORD 32767 
127 063446 077777 -WORD 32767 
128 063450 137777 «WORD 49151 
129 063452 157777 -WORD 57343 
130 063454 167777 -WORD 61439 
131 06 173777 -WORD 63487. 
132 063460 175777 . WORD 1 
133 06 176777 «WORD 65023 
134 063464 177377 -WORD 65279 
135 0634 177577 - WORD 5407 
136 0634 177677 -WORD 65471 
137 063472 177737 -WORD 65503. 
138 063474 177757 -WORD 65519. 
139 063476 177767 -WORD 65527 
140 063500 177773 -WORD 65531. 
141 063502 177775 -WORD 65 
142 063504 177776 -WORD 65534. 
143 063506 177777 -WORD 65535. 
144 063510 ENRGDT: 

145 -EVEN 


a ————————— 
. 
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ERROR MESSAGE TABLE SEQ 0251 


| 1 .SBTTL ERROR MESSAGE TABLE 
3 063510 076634 071542 000000 EMT1: .WORD €MS300,E 
4 063516 076652 076675 076722 EMT2: “WORD EMS 301 EmSsOo, EMS303,EMS1.EMS304 
5 063530 101656 101061 101222 “WORD EMS511.EMS500,EMS501 .—EMS502,EMS503,0 
6 063544 076652 076742 076675 EMT3: ‘WORD £MS301.EMS306.EMS 
7 063552 101656 101377 101222 "WORD £MS511.EMS505. -EMS501, EMS502,0 
B 063564 34 076675 076756 EMT4: :WORD &MS300~EMS gE 07;EMS 
9 063574 101656 101247 101222 "wORD €MS511. EMSSO EMS on, *—EMS503,0 
10 06 52 077017 077034 EMTS: WORD &MS301.EMS310.EMS31 
11 063614 101656 101247 101222 “WORD €MS511.EMS502, EmSSOT, EMS503,EMS504 
12 063626 077100 “WORD EMS312., 
13 063632 076652 076742 077034 EMT6: :WORD EMS301_EMS306,EMS311 
14 063640 101656 101247 101222 “WORD EMSS11 -EMSSO0. EMSS01 .EMS503.EMSS504 .0 
15 063654 076652 077136 076675 EMT7: [WORD &MS301.EMS313.EMS302 
16 063662 101656 101222 101247 “WORD £MS511.EMS501.EMS502,EMS504,,EMS503,0 
17 063676 077244 077265 077167 EMT10: [WORD &MS316.EMS317.EMS314 
18 063704 101656 101222 101247 “WORD EMS511.EMS501.EMS502,0 
19 063714 077244 077265 077216 EMT11: [WORD EMS316.EMS317.EMS315 
20 063722 101656 101222 101247 3 :WORD EMS511.EMS501.EMS502,0 
21 063732 077244 077305 077167 EMT12: ‘WORD &MS316.EMS320.EMS314 
22 063740 101656 101222 101247 “WORD EMS511.EMS501 .EMS502,0 
23 063750 077244 077305 077216 EMT13: {WORD &MS316.EMS320.EMS315 
24 063756 101656 101222 101247 “WORD EMS511.EMS501.EMS502,0 
5 063766 077244 077325 077167 EMT14: “WORD &MS316.EMS321_EMS314 
26 063774 101656 101222 101247 “WORD EMS511.EMS501 .EMS502,0 
077244 077325 077216 EMT1S5: “WORD &MS316.EMS321_EMS315 
28 064012 101656 101222 101247 “WORD EMS511.EMS501 .EMS502,0 
29 064022 077244 077345 077167 EMT16: WORD &MS316.EMS322.EMS314 
30 064030 101656 101222 101247. “WORD EMS511.EMS501.EMS502,0 
31 064040 077244 077345 077216 EMT17: [WORD &MS316. *EMS315 
32 064046 101656 101222 101247 “WORD EMS511.EMS501.EMS502,0 
33 064056 076652 077404 076122 EMT20: ‘WORD £MS301.EMS324_EMS250 
101656 101344 "WORD E 311. 
35 064070 077100 077435 000000 “WORD £MS312.EMS326,0 
36 064076 076652 077365 076122 EMT21: “WORD 301° EMS323,EMS250 
37 064104 101656 101344 “WORD EMS511.EMS504 
38 064110 077100 077424 000000 “WORD EMSS] 2°EMS325,0 
39 064116 076652 077136 076122 EMT22: “WORD EMS301.EMS313. bus250 
40 064124 101656 101344 000000 “WORD EMSS] EMS : 
41 064132 076652 077404 076160 EMT23: ‘WORD &MS301.EMS324_EMS251 
42 064140 101656 101222 “WORD EMS511.EMS501 
43 064144 077100 077435 000000 “WORD €MS312.EMS326,0 
44 064152 076652 077365 076160 EMT24: ‘WORD &MS301.EMS323.EMS251 
45 064160 101656 101222 “WORD EMS511.EMS501 
46 064164 077100 077424 000000 “WORD EMS312.EMS325,0 
47 064172 076652 077136 976160 EMT25: ‘WORD &MS301.EMS313.EMS251 
48 064200 101656 101222 000000 “WORD EMS511_EMS501.0 
49 064206 076652 076742 076224 EMT26: ‘WORD &MS301_EMS306_EMS252, EMS253, EMS327,EMS254 
50 064222 101656 101317 101222 “WORD EMS311 “ERS503. EMS501.EMS502 
51 064232 077453 077167 000000 * WORD mS350°6 
52 064240 076634 076224 EMT27: WORD Ems 300 ns230 
53 064244 101656 101222 000000 "WORD €MS511. Ems 01,0 
54 064252 076634 076224 EMT30: :WORD &MS300.EMS252° 
55 064256 101656 101222 101344 "WORD €MS511. EMS Or. EMS504.0 
56 064266 076634 076224 EMT31: [WORD &MS300-E 
57 064272 101656 101222 101317 "WORD €MS511. Ens 34, EMS503,0 
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076224 
076224 


EMT32: 
EMT33: 
EMT34: 
EMT35: 
EMT36: 
EMT37: 
EMT4O: 


EMT41: 
EMT42: 
EMT43: 
EMT44: 
EMT4S: 
EMT46: 
EMT47: 


EMT50: 
EMT51: 


EMTS2: 
EMT53: 
EMT54: 


EMTSS: 


EMT56: 
EMTS7: 
EMT60: 
EMT61: 


EMT62: 


EMS301 ENS 36 EMS252 
cree)” -EMS 


-EM 
EMS 0 7EMS323,EMS255 
E 1,EMS504 
EMS312.E MS325.0 
eat” “EMS313, EMS255 
eee -EMS323. EMS250,EMS327 ,EMS255 
MS511,EMS504 ,EMS501,—MS503,0 


300 ,EMS253 
EMS511,EMS501,EMS503,0 


EMS Ss 

casei. ~EMS501,EMS504 ,0 
MS301.EMS324.EMS253 

EMSS 11 JEMSSO1 EMSSO3 


EMS511.EMS506,EMS501 0 
EMSS .EMS333 

EMS511, EMS907. —MS501,0 
EMS S301.E MS324,EMS260° 
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ERROR MESSAGE TABLE SEQ 0253 
115 065026 077100 077424 000000 .WORD &MS312,EMS325,0 
116 065034 076652 077136 076501 EMT63: WORD €&MS301 -EMS313 .EMS260 
117 065042 101656 101222 000000 “WORD £MS511.EMS501.0 
118 065050 076634 072301 EMT64: .WORD EMS 2 
119 065054 101656 101222 000000 "WORD €MS511.EMS501, 
120 065062 072301 077564 077662 EMT65: WORD EMS12 Emes3s EMs342 
121 065070 101656 101222 000000 “WORD £MS511,EMS501,0 
122 065076 072301 077607 077662 EMT66: WORD &MS12,EMS336,EMS342 
123 065104 101656 101222 000000 “WORD €MS511,EMS501,0 
124 065112 076634 072030 EMT67: .WORD &MS300.EMS6 
125 065116 101656 101222 ;WORD £MS511.EMS501 
126 065122 072074 077540 000000 “WORD EMS7,EMS333,0 
127 065130 072030 077445 EMT70: :WORD &MS300,EMS6,EMS327,EMS7 
128 065140 101656 101222 101344 -WORD €MS511.EMS501,EMS504,0 
129 065150 072030 077564 077642 EMT71: {WORD &MS6,EMS335,EMS340,EMS10,EMS333,EMS342 
130 065164 101656 101222 101247 ;WORD €MS511,EMS501,EMS502,0 
131 065174 072030 077607 077642 EMT72: ‘WORD EMS6.E & Ehe 30 EMS10,EMS334,EMS342 
132 065210 101656 101222 101247 “WORD EMS511,EMS501,EMS502,0 
133 065220 076652 076501 076722 EMT73: WORD &MS301.EMS260.EMS303.EMS11 
134 065230 101656 loveee 101247 “WORD £MS511.EMS501.EMS502.0 
135 065240 077714 077730 077662 EMT74: {WORD &MS343.EMS344.EMS342.0 
136 065250 076634 072357 EMT75: .WORD 1 
137 065254 101656 101317 000000 “WORD &MS511.EMS503,0 
138 065 072357 077757 EMT76: WORD &MS346.EMS13,EMS345 
139 065270 101656 101317 000000 “WORD £MS511. $.0 
140 065276 072357 077757 EMT77: .WORD &MS337.EMS13,EMS345 
141 065304 101656 101317 000000 “WORD €MS511.EMS503,0 
142 065312 076652 077136 076312 EMT100: :WORD &MS301.EMS313.EMS254,EMS347,EMS13 
143 065324 101656 101317 ;WORD £MS511.EMS503, 
144 065332 100005 072426 077653 EMT101: .WORD &MS346.EMS14,EMS341.EMS15 
145 065342 101656 101317 101222 . WORD EMS511 .EMS505 501, 
146 065352 077626 072426 077653 EMT102: .WORD &MS337.EMS14,EMS341.EMS15 
147 065362 101656 101317 101222 WORD ENs511 EmS208.¢ MS501, 
148 065372 076652 077136 076312 EMT103: .WORD £&MS301.EMS313. EMS254. EMS347,EMS15 
149 065404 101656 101317 “WORD EMSS1 1 EMSS03 
150 10 072426 077522 WORD EMS 2.0 
151 065416 100005 072632 077653 EMT104: WORD &MS346,EMS17.EMS341.EMS16 
152 065426 101656 101317 101222 -WORD £MS511.EMS503,EMS501.0 
153 065436 077626 072632 077653 EMT105: WORD ENS337.E MS17 east zEMS16 
154 065446 101656 101317 101222 WORD mes0$ Eh 1,0 
155 065456 076652 077136 076312 EMT106: _WORD EmS301, MS313, EMS * —EMS347,EMS16 
156 065470 101656 101317 “WORD £EMS511. EMS S03" 
157 065474 072632 077522 000000 “WORD €MS17,€MS332,0 
158 065502 100005 072673 077653 EMT107: [WORD &MS346,EMS20,EMS341.EMS21 
159 065512 101656 101317 101222 WORD EMS511 -EMS05.£ 
160 065522 072673 100051 072737 EMT110: WORD &MS20,EMS351,EMS21,EMS350,EMS22,EMS315 
161 065536 101656 lorege 000000 “WORD €&MS511 Ens mS501.0 
162 065544 072673 077554 100044 EMT111: :WORD &MS20,EMS334,EMS350,EMS22.EMS333 
163 065556 101656 101222 000000 “WORD £MS511 orRsOi 0 
164 065564 626 072673 077653 EMT112: -WORD €&MS337. -EMS20 ens341 gEms21 
165 065574 101656 101317 lovee “WORD EMSS 11. EMS $c EMS501 
166 065604 077 072673 077653 EMT113: .WORD €&MS337.E EMS 341 "éhs21, EMS350,EMS22.EMS334 
167 069622 101656 101222 “WORD ENSS11cE 5 
168 065630 072673 1 072737 EMT114: _WORD tne 32 EMS21,EMS350,EMS22,EMS333 
169 065644 101656 101222 000000 "WORD EMS511-EM 
170 065652 076652 077136 076312 EMT115: WORD ENS 301 -EMSS1.. *EMS254,EMS347,EMS21 
171 065664 101656 101317 “WORD EMS 511,EMS50 
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101222 
076312 


000000 
076756 
000000 
100103 


000000 
077757 
o77es3 


EMT116: . 
—MT117: . 
EMT120: . 


EMT121: . 
EMT122: . 
EMT123: . 


EMT124: . 
EMT125: . 


EMT126: . 
EMT127: . 


EMT130: ; 
EMT131: . 
EMT132: . 
EMT133: . 
EMT134: ; 
EMT135: . 
EMT136: . 
EMT137: .WORD 
EMT140: . 
EMT141: : WORD 
EMT142: .WORD 
EMT143: 
EMT144: 
EMT145: ; 
EMT146: 

EMT147: ; 


EMS20,£MS332,0 

EMS 346, EMS23.EMS341,EMS24 
EMS511.EMS503,EMS501,0 
EMS337,EMS23,EMS341,EMS24 
EMS511.EMS503,EMS501 ,0 

EMS301 -EMS313,EMS254 * EMS347,EMS24 
EMS511.EMS50 

EMS25 EMS332.0 

EMS 346, EMS25 .EMS341,EMS26 
EMS511.EMS503,EMS501 0 
EMS337.EMS25,EMS341,£MS26 
EMS511.EMS503,EMS501 ,0 

EMS 301. EMS313,EMS254.EMS347,EMS26 
EMS511,EMS503 

EMS25 ,EMS332,0 
EMS300,EMS27,EMS307,EMS2 
EMS511.EMS503, 

EMS331 .EMS27,EMS353 

EMS511,EMS50 

EMS30,EMS315,0 
EMS337,EMS27.EMS341,EMS30 
EMS511,EMS503,0 

EMS 301 .EMS313.EMS254,EMS347,EMS30 
EMS511,EMS503 

EMS27. EMS 332 0 


04. EMS 
AT EMS354 ,EMS250 


-EMS504,EMS503,0 
EMS355.EMS33,EMS250,EMS341,EMS30 
EMS511,€MS504,0 
EMS355 EMS 34,EMS250,EMS341,EMS30 
EMS511.EMS504,0 
EMS331 .EMS4,EMS255 
EMS511,EMS504 ,0 
EMS35,EMS357,EMS360,EMS15 
EMS51 -EMS504 ,0 


E ; 

EMS511.EMS503,0 
EMS300.EMS36,EMS307,EMS2 
EMS511.EMS501 ,0 
EMS355.EMS37,EMS255,EMS341,EMS30 
EMS511.EMS504,0 

EMS 346.EMS40, EMS345 


- SS id 
EMS337,EMS40,EMS341,EMS30 
EMS511,EMS504,0 
EMS 363.EMS310.EMS41 
EMS511.EMS501.0 | 
EMS337.EMS41,EMS341,EMS252,EMS327,EMS253 
EMS511.€MS501,0 
EMS41 EMS 354,EMS364,EMS252,EMS365,EMS253 
EMS511,EMS501 0 


E EMS 306 .EMS36 
EMS511,EMS501,EMS503,0 
EMS 366 ,EMS4 
EMS511,EMS503,0 
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EMT150: .WORD ErSang GS 565. EMS42,EMS354,EMS3 


100401 EMS367. 
000000 “WORD €MS511.EMS503,0 
EMT151: .WORD EMSaS7 EMSae 
900000 “WORD €MS511.EMS501,0 
073753 EMT152: .WORD &MS43,EMS354,EMS36 
000000 WORD EMSS] 11,€MS501,0 
100401 €MT153: :WORD &MS367.EMS353.EMS365,EMS36,EMS370 
000000 “WORD EMSs °EMS503, 
100401 EMT154: :WORD EMS367, EMS35 *EMS365,EMS36,EMS371 
000000 [WORD €MS511.EMS 
076756 EMT155: .WwORD &MS300. EMS44 EMS307,EMS2 
000000 “WORD EMS311E $503,0 
100401 EMT156: .WORD &MS367. EnSS93. EMS365,EMS44,EMS354,EMS3 
000000 WORD Ens311 EMS 
076756 EMT157: .WORD &MS300, Erszs EMS307,EMS2 
000000 “WORD ENSS1 1.EMSS 
100401 EMT160: [WORD &MS367. EMsas3, EMS365, EMS45,EMS354,EMS3 
101222 WORD EMSS11. EMS503,EMS501 
000000 WORD EMS35 33, 
076756 EMT161: .WORD &MS300,EMS46.EMS307,EMS2 
000000 “WORD EMes11 MS503,0 
100103 EMT162: -WORD EMS 337, EMSG6 EMS353 
101222 .WORD €&MS511.EMS505,EMS501,0 
077626 EMT163: .WORD EMS35,EMS335,EMS337,EMS41.EMS334,EMS372 
000000 “WORD EMS MS501,0 
077626 EMT164: .WORD EMS47 Enesss EMS337,EMS41,EMS335,EMS372 


000000 EMS511, P 
077445 EMT165: .WORD &MS337,EMS35,EMS327,EMS47 


00545 
076756 EMT166: 
EMT167: .WORD ens30 E meas. émssco EMS36,EMS333 


514 oERssOl Ens 503.0 
EMT170: oS337 *EMS35 
000000 “WORD £MS511.EMS501,0 
071662 €MT171: 
000000 


EMS50, EMS 34,EMS3 
EMS511, CERssor. 0 
074623 EMT172: E/4S301 . EMS 306,EMS51 
EMS511.EMS501 .EMS504 0 
EMT173: o£ 53.EMS365. EMS47,EMS354,EMS3 
EMS511.EMS501.0 
077445 EMT174: EMS300,EMS250,EMS327,EMS255 ,EMS327,EMS256 


-EM 
EMS511,EMS501 0 
Ag > EMS256,EMS341 , EMS600 


-EMS 
em ayt “Ene 50, + toca -EMS600 


— 
$s 

— 
of 
. — oO oe 


000000 
077653 EMT175: 
077653 EMT176: 


scotia 


EMS511.EM 
077653 €&MT177: EMS300, EMS S30¢" MS341,EMS600 
EMSS11 (Ems 
5 ae EMT200: EMS 337 .EMS5¢ -EMS341,EMSGO! 
077653 €MT201: EMS346,EMS52,EMS341,EMS602 
900000 EMS511.EMS501 
077653 EMT202: EMS 346,EMS51,EMS341,EMS602 
000000 z EMS511.€MS501,0 
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ERROR MESSAGE T SEQ 0256 
286 067352 100005 074672 077757 EMT203: .WORD EMS 346, EMS52 EMS345 EMS373, EMS255 
287 067364 101656 101344 19122 “WORD M5504, EMS 
288 067374 100005 074672 077653 EMT204: WORD Ens 346 6 MS52 gbis0! éms27 
289 067404 101656 101344 101222 “WORD £MS511 EF ns504 EMS501,0 
290 067414 074733 100127 0714662 EMT205: .WORD mses Ene MS3 
291 067422 101656 101317 101247 “WORD matte pases EMS502,€MS510,0 
292 067434 077 074774 100603 EMT206: . WORD EMS 337. EMS54,EMS374,EMS250,EMS327,EMS255 
293 067450 077445 071662 [WORD —MS327.EMS 
454 101656 101344 101222 “WORD &MS511 EMS504, Ems501, 0 
464 074774 100127 071662 EMT207: .WORD &MS54,EMS 
296 067472 101656 101222 000000 WORD Emssti- ease f 
297 067500 074774 100127 100360 EMT210: .WORD &MS54,EMS354,EMS364,EMS250 
298 067510 101656 101344 ;WORD £MS511,EMS504, 
299 067516 074 100127 100360 EMT211: .WORD &MS54,EMS354,EMS364,EMS255 
067526 101656 101344 [WORD £MS511,EMS504,0 
301 067534 077 075051 EMT212: .WORD £MS337.EMS55 
302 067540 101656 101344 000000 WORD EMS511 *—EMS504,0 
067546 075127 077554 077757 EMT213: WORD &MS56,EMS334 EMs345, EMS373,EMS262,EMS327,EMS251 
304 067564 101656 101222 WORD Emee1 1 EMSsO1 
305 067570 075127 077564 000000 “WORD &MS56,EMS335,0 
306 067576 077626 075127 EMT214: .WORD EMS337,EMS 
307 067602 101656 101222 000000 “WORD EMS511.EMS501,0 
308 067610 075222 077540 1000464 EMT215: :WORD EMS57 EMS333 EMS350,EMS60,EMS334 
309 067622 101656 101222 000000 “WORD EMSStice 501.0 
310 067630 100343 076742 071760 EMT216: .WORD €&MS363. Em $306. EMS5 
311 067636 101656 101222 000000 “WORD &MS511.EMS501.0 
312 067644 100343 076742 075360 EMT217: .WORD &MS363.EMS306.EMS61 
313 067652 101656 101222 000000 “WORD €MS511.EMS501 .0 
314 067660 075433 077540 100634 EMT220: .WORD &MS62.E MS533 EMS375,€MS251 
315 067670 101656 101222 000000 WORD EMSSiie 
316 067676 075433 077540 100650 EMT221: .WORD EMS62 éng333 EMS376,EMS262 
317 067706 101656 101222 000000 WORD Ens -e .0 
318 067714 075433 077540 100650 EMT222: :WORD MS ng333 EMS376,EMS250 
319 067724 101656 101222 000000 WORD EMSSiice 501.0 
5 075433 077653 EMT223: .WORD &MS346 6’Ense> EMS341,EMS603 
321 067742 101656 101222 000000 -WORD £MS511.EMS501,0 
067750 100005 075514 100650 EMT224: WORD £&MS346.E mses EMS376 EMS262 
323 067760 101656 101222 101317 .WORD £MS511 ZEn350 
32 075514 077540 100044 EMT225: {WORD EMS63 EMS 20. —MS363,EMS310,EMS262 
325 070004 101656 101222 “WORD EMSSiice EAS3Of 0 
326 070012 075514 100224 073753 EMT226: :WORD &MS63,EMS357,EMS36,EMS372 
327 070022 101656 101222 000000 “WORD ems5 11 ERS301 0 
328 070030 075514 100204 100246 EMT227: :WORD &MS63 38, ERs360, EMS15 
329 101656 101222 000000 “WORD €MS511 ZEnS301 0 
330 070046 075514 100204 100274 EMT230: _WORD —MS361,EMS15 
331 070056 101656 101222 “WORD €EMS511 ERS396,ER 
332 0 075514 100 074113 EMT231: :WORD EMS63,EMS356 eis 
333 070072 101656 101222 000000 WORD EMSS 11 Emss0t 0 
334 070100 074113 100664 077662 EMT232: “WORD 1,€ EMS342,EMS365,EMS63,EMS332 
335 070114 101656 101222 000000 “WORD mati: E 
336 070122 100431 100103 100401 EMT233: {WORD &MS367.EMS3 3-E -EMS365, 5 .EMS63, .EMS401 
337 070134 101656 101317 1o1ze “WORD £MS511 gbMs505, EM 
338 070144 072551 100664 1005465 EMT234: -WORD &MS16.E 73 EMS365. EMS64,EMS354,EMS3 
339 070162 101656 101317 oie “WORD €MS511 508 S60 
70172 076634 075624 076 g EMT235: :WORD E 07 EMS 2 
1 070202 101656 101247 10131 “WORD £MS511 Ease -Ens08 
2 070212 075127 100664 100650 EMT236: [WORD &MS56,EMS377,EMS376, éns252, EMS372,EMS350 
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ERROR MESSAGE 





343 070226 
344 070232 


349 070310 
350 070326 
351 070334 
352 070346 
353 070352 


354 070360 
355 070376 
356 070404 
357 070414 


358 070422 
359 070432 
360 


399 071 
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101016 
000000 
100727 


000000 
101016 
000000 
077642 
000000 
100727 


000000 
077642 
000000 
101016 
101016 
000000 
100727 


000000 
101016 
000000 
077642 
100727 


000000 
077642 
000000 
101016 
101016 
000000 
100727 


101016 
101016 


EMT237: . 
EMT240: . 
EMT241: 
EMT242: 


EMT243: . 
EMT244: ; 
EMT245: 
EMT246: 


EMT247: 
EMT250: 
EMT251: 


EMT252: 
EMT253: 
EMT254: 
EMT255: 


EMT256: 
EMT257: 
EMT260: 


EMT 261: 
EMT262: 
EMT263: 
EMT 264: 


EMT265: 
EMT266: 
EMT267: 


ssetctearcometommanaao 


EMS65,EMS401 
EMS511,EMS502,EMS503,EMS501,0 
EMS 300, EMS66,EMS307,EMS2 
EMS311 zEMS901 E 503.0 
MS372 éMs350, EMS66,EMS401 
nett 2s 503 EMSSOT- 

5336 énssc0, EMS15,EMS406,EMS405,EMS604 

Enso, Eh 


0 

EMS O5’Emsooz. EMS402,EMS21,EMS377 
EMS511.EMS503 
EMS36,£MS335,0 
ENSGS  EMS356, EMS340, -EMS26,EMS404,EMS405,EMS604 
EMS63,EMS401 , EMS405,EMS604 
EMSS] 11,€mS503,0 

MS36 EMs370 EMS405,EMS604 


EMeSTice ,0 
403, EMS604. -EMS402,EMS24 ,EMS377 


EMS36, —MS335,0 
MS67,EMS332,EMS405, EMS604 
Emesiie EMS503,0 
EMS66, EMSS cone EMS340, EMS15,EMS406,EMS405 ,EMS605 


EMS403, EMSGOS, 7EMS402,EMS21 ,EMS377 
11,EMS503_ 


P 
—MS335,0 

ENSGS ENES36,5 —MS340,EMS26,EMS404,EMS405,EMS605 
EMS63,EMS401 , EMS405,EMS605 
EMS511 gEMS505 0 
E MS370,EMS405,EMS605 
EMS511, CERSsOs 0 

EMS403,EMS605, b4sé02, EMS24 ,EMS377 
EMSS17 E mS503. 


EMS 36, aesss, 0 
EMS67, EMS333. EMS405,EMS605 
EMS>1 1,€MS503,0 
66, EMS336,EMS340,EMS15,EMS406,EMS405,EMS606 
enssif rmss0S 0 
iv ae ,EMS21,EMS377 


i 
ave EMSAOt semstos, EMS605 


EMS67 11 ,£R3305.0 EMS405 ,EMS606 
EMS511,EMS503,0 
EMS66,EMS356,EMS407 


SEQ 0257 
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000000 
077642 
100727 


000000 
101016 
101016 
000000 






EMT270: . 
EMT271: . 


EMT272: .»' 
EMT273: . 
EMT274: - 
EMT275: : 
EMT276: 
EMT277: . 
EMT300: ; 


EMT301: . 





EMS511,EMS503,0 
Enso eRSS0S éMs360, EMS15,EMS406,EMS405,EMS607 
MS403,EMS607.EMS402,EMS21,EMS377 

ENSSTI -EMS503 


MS27,EMS336,0 
ENS 168 EMS370, EMS405, EMS607 


$503, 
MS27 émes?y EMS405 ,EMS607 
EMSS] 1,€MS503,0 
EMS 36 EMS404 EMS405,EMS607 
EMSS 11. 0 

MS53 ebesde EMS405,EMS607 
a iP gEMS305 EMS502,0 
ESO? Zen MS 3324 EMS405, ,EMS607 
ees fs EMS340, EMS26,EMS404,EMS405,EMS607 


503.0 
MS403.EMS607,EMS402,EMS24,EMS377 
EMSs) 1, EMS503 
EMS27 "ns 36,0 
EMS70.£MS401 .EMS405,EMS607 
EMS511,EMS503,0 
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ERROR MESSAGE SEQ 0259 

1366 102210 000000 EHTi: .WORD €H1,0 
071372 102266 000000 EHT2: .WORD €EH2.0 
071376 102303 000000 EHTS: .WORD &HS.0 
4 071402 102341 000000 EHT7: .WORD €&H7.0 
5 071406 102360 000000 EHTS7: .WORD €£H57,0 
6 071412 102456 000000 EHT65: .WORD : 
7 071416 102532 000000 EHT71: .WORD €H71.0 
8 071422 102274 000000 EHT74: .WORD €H3,0 
9 071426 102607 000000 EHT115: .WORD H115,0 
10 071432 102704 000000 EHT130: .WORD £H130.0 
11 071436 103022 000000 EHT132: .WORD EH132,0 
12 071442 103120 000000 EHT142: .WORD £H142.0 
13 071446 10321 000000 EHT145: .WORD EH145,0 
14 071452 103333 000000 EHT150: .WORD £H150.0 
15 071456 103437 000000 ENT213: .WORD £H213.0 
16 071462 103526 000000 EHT220: .WORD £H220.0 
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071 103564 EDT1:  .WORD €ED1 
§ 0714 103574 EDT2:  .WORD €ED2 
071472 1 EDTS5: .WORD D5 
071474 10 EDTS7: .WORD €D57 
071476 103620 EDT65: .WORD €ED65 
071500 103630 EDT71: .WORD €D71 
071502 103574 EDT74: .WORD 2 
071504 103640 EDT115: .WORD €D115 
071506 103652 EDT130: .WORD £D130 
071510 103640 EDT132: .WwORD D115 
071512 103666 ET220: .WORD €ED220 


SEQ 0260 
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ERROR MESSAGE SEQ 0261 


1 071514 103672 EFT1: .WORD EF] 
2 071516 103675 EFT2: .WORD €EF2 
3 071520 103676 EFTS: .WORD EFS 
4 071522 103700 EFTS7: . WORD €EF57 
5 071524 103672 EFT65: .WORD €EF1 
6 071526 103672 EFT71: . WORD €EFi 
7 071530 103675 EFT74: . WORD EF2 
8 071532 103700 EFT115: .WORD €EF57 
9 071 103704 EFT130: .WORD €&F130 
10 071536 103700 EFT132: .WwORD €EF57 
13 071540 103676 EFT220: .WORD EFS 
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ERROR MESSAGE STRINGS SEQ 0262 


1 .SBTTL ERROR MESSAGE STRINGS 
3071542 9116 «= 112, s« 116 EMS}: ~~ .ASCIZ ~@NONEXISTENT DEVICE "NED'' (RMCS2,BIT 12) a 
4071613 103 117 116 EMS2:  .ASCIZ @CONTROLLER CLEAR ''CLR™ (RMCS2,BIT 05) @ 
5 071 106 125 116 EMS3:  <ASCIZ @FUNCTION CODE (RMCS1, BITS 01 - 05) a 
6071727 =6 125116 = 125s EMS4: + SASCIZ @UNUSED BIT POSITIONS OF 
7071760 104 105 126 EMSS: <ASCIZ @DEVICE AVAILABLE ‘DVA'' (RMCS1, BIT 11) @ 
8 0720 120 101 122 EMS6: ‘ASCIZ TIY ERROR ‘PAR’ (RMER1, BIT 
9.072074 106 101 124 EMS7: <ASCIZ @DATA PARITY ERROR ' (RMER2, BIT 03) a 
10 072145 = 120 101 122 EMS10: .ASCIZ @PARITY TEST "PAT'’ (RMCS2, BIT 04) a 
11072210 = =115 101 123 EMS11: -ASCII @MASSBUS CONTROL BUS PARITY ERROR 'MCPE"’ a 
12 072260 050 = 122-115 “ASCIZ @(RMCS1, BIT 13) @ ye 
13072301 =. 117, ss 174-114 EMS12: LASCIZ @ILLEGAL REGISTER ERROR "'ILR'' (RMER1, BIT 01) @ 
14 072357, 104. = 111, 107-s«EMS13: © ASCIZ @DIAGNOSTIC MODE ‘DMD’ (RMMR1, BIT 00) a 
15 072426 115 105 104 EMS14: -ASCIZ @MEDIUM ON LINE ‘MOL'' (RMDS, BIT 12) @ 
16 072473 = 115, 107,—S ss 177s EMS15: ASCIZ @MAINTENANCE UNIT READY 'MUR'’ (RMMR1, BIT 09) @ 
17 072551 115 101 111 EMS16: .ASCIZ @MAINTENANCE WRITE PROTECT ‘MwP'’ (RMMR1, BIT 03) a 
18 072632 = 127, 122,—Ss«111—«EMS17: :ASCIZ @WRITE LOCK ‘WRL'' (RMDS, BIT 11) @ 
19 072673 = 104. —S 105 126 EMS20: -ASCIZ @DEVICE CHECK 'DVC'’ (RMER2, BIT 07) @ 
20072737 = 115, 1017,—=Ss«171s« EMS27: © -ASCIZ @MAINTENANCE DRIVE FAULT 'MDF'’ (RMMR1, BIT 06) a 
21073016 =6 125. Ss «116 =: 123.-«EMS22: = :ASCIZ @UNSAFE STATUS ‘UNS'’ (RMER1, BIT 14) 8 
073063 123 105 #105 EMS23: -ASCIZ @SEEK INCOMPLETE STATUS ‘‘SKi'' (RMER2, BIT 14) @ 
23073141 115 101 111 EMS24: -.ASCIZ @MAINTENANCE SEEK ERROR 'MSER’’ (RMMRI, BIT 07) a 
0732 120. 117 = 123. «EMS25: -ASCIZ @POSITIONING IN PROGRESS ‘PIP'' (RMDS, BIT 13) @ 
25073276 =96s 115s 101,-—2Ss117-«EMS26: :ASCIZ @MAINTENANCE ON CYLINDER ‘MOC'’ (RMMRI, BIT 08) @ 
26 073355 896105. «= 116 =: 104 EMS27: :ASCIZ @END OF BLOCK "EBL" (RMMRI, BIT 13) a 
073421 104 111 101 EMS30: -ASCIZ @DIAGNOSTIC END OF BLOCK ‘DEBL'’ (RMMRI, BIT 13) a 
28 073501 9114 «= 101. «2 s«123.:«EMS31: :ASCIZ @LAST SECTOR STATUS "LS" (RAMRI, ) 
073552114 = 101.-«S 123s EMS32: ASCIZ @LAST SECTOR/TRACK STATUS ‘LST’" (RMMR1, BIT 01) @ 
30 073632 «=6 123. S105 «Ss 103:«EMS33: :ASCIZ @SECTOR ADDRESS BITS OF @ 
073662 124 122 107 EMS34: ‘ASCIZ a@TRACK ADDRESS BITS OF @ 
073711 96126 = 117, Ss 114s EMS35: ZASCIZ @VOLUME VALID (RMDS, BIT 06) @ 
33 073753 = 107,_—=S «117, = 040 EMS36: ASCIZ @GO BIT (RMCS1, BIT 00) 
074003 103 131 114 EMS37: ‘ASCIZ @CYLINDER ADDRESS BITS OF @ 
35 074035 114 101 123 EMS40: -ASCIZ @LAST BLOCK TRANSFERRED, ‘LBT'' (RMDS, BIT 10) @ 
074113 = =9103 «= 117,—S «175 EMS41: <ASCIZ @COMPOSITE ERROR ‘ERR’ (RMDS, BIT 145 
37 074161 103 117 115 EMS42: -ASCIZ @COMMAND SEQUENCER TEST BIT “TST’* (RMMR2, BIT 12) a 
38 074245 104 $122 111 EMS43: .ASCIZ @DRIVE READY STATUS 'DRY'’ (RMDS, BIT 07) @ 
39074314 103 117 116 EMS44: ‘ASCIZ @CONTINUE “'CONT’’ (RMR, BIT 065 a 
40074355 = 111 S116 =: 126-«EMS45: ZASCIZ @INVALID COMMAND ‘IVC"* (RMER2, BIT 12) @ 
41 074432 114 117 123 EMS46: -ASCIZ @LOSS OF SYSTEM CLOCK ERROR ‘LSC’ (RMER2, BIT 11) @ 
42074514 117 103 103 EMS47: ‘ASCIZ @OCCUPIED ‘DCC’’ (RMMR1, BI a 
43 074554 111 114 174 EMSSO: <ASCIZ @ILLEGAL FUNCTION “‘ILF“ (RMER1, BIT 0) @ 
44 074623 117 106 106 EMS51: -ASCIZ @OFFSET DIRECTION ‘OFD'' (RMOF, BIT 07) @ 
45 074672 117 106 106 EMS52: ‘ASCIZ @OFFSET MODE ‘UM’ (RMDS, BIT 60) a 
074733 = 122 = 125-116 EMS53: © <ASCIZ @RUN AND GO 'RG'’ (RMMRT, BIT 14) @ 
47 074774 111 116 126 EMS54: -ASCIZ @INVALID ADDRESS ERROR “JAE’* (RMER1, BIT 10) @ 
48 075051 101 104 = 104 EMS55: -ASCIZ @ADDRESS OVERFLOW ERROR ‘‘AOE'’ (RMERI, BIT 09) @ 
49075127 122 105 107 EMS56: ‘ASCII @REGISTER MODIFICATION REFUSED ERROR @ 
075173 042 s22 5 -ASCIZ @' RMR’’ (RMER1, BI a 
51 075222 861042 122—Ss«d11«sEMSS7: .ASCIZ @DRIVE REQUEST REQUIRED STATUS “DRQ'' (RMDT, BIT 11) @ 
075306 120 122 117 EMS60: .ASCIZ @PROGRAMMABLE STATUS ‘PGM'' (RMDS, BIT 09) @ 
53 075360 104 #122 111 EMS61: .ASCIZ @DRIVE PRESENT STATUS ‘DPR'' (RMDS. BIT 08) @ 
54 075453 120 117 122 EMS62: .ASCIZ @PORT REQUEST FLOP ‘ROQA,ROB" (RMMR2, BITS 15,14) a 
55075514 101 124 124 EMS63: °ASCIZ @ATTENTION “'ATA™ (RMDS, BIT 15) 
56 075554 127 122 111 EMS64: <ASCIZ @WRITE LOCK ERROR 'WLE” (RMERI, BIT 11) a 
57 075626 105 130 103 EMS65: <:ASCIZ @EXCEPTION "REX’’ (RMMR1, BIT 12) a 
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58 075665 111 116 126 EMS66: .ASCIZ @INVALID COMMAND ERROR "'IVC'’ (RMER2, BIT 12) a 
59 075742 124 101 107 EMS67: .ASCIZ @TAG BUS (RMMR2, BITS 00-09) OR TAG CONTROL @ 
60 076016 114 111 116 -ASCIZ @LINES (RMMR2, BITS 10,11,13) a 
2) 076054 123 105 101 EMS70: .ASCIZ @SEARCH ENABLE "ESRC'’ (RMMR1, BIT 11) a 
63 076122 104 111 123 EMS250: .ASCIZ @DISK ADDRESS REGISTER (RMDA) @ 
64 076160 103 117 116 EMS251: .ASCIZ @CONTROL STATUS REGISTER #1 (RMCS1) a 
65 076224 105 122 122 emeso6: *ASCIZ @ERROR REGISTER #1 (RMER1) @ 
66 076257 105 122 122 EMS253: .ASCIZ @ERROR REGISTER #2 (RMER2) @ 
67 076312 115 101 117 EMS254: .ASCIZ @MAINTENANCE REGISTER #1 (RMMR1) a 
68 076353 104 105 123 EMS255: .ASCIZ @DESIRED CYLINDER REGISTER (RMDC) @ 
69 076415 117 106 106 EMS256: .ASCIZ FSET R R_(RMOF) @ 
70 076445 104 122 111 EMS257: .ASCIZ @DRIVE TYPE REGISTER (RMDT) @ 
71 076501 110 117 114 EMS260: .ASCIZ @HOLDING REGISTER (RMHR) @ 
72 076522 123 105 122 EMS261: .ASCIZ @SERIAL NUMBER REGISTER (RMSN) @ 
e, 06571 101 124 124 EMS262: .ASCIZ @ATTENTION SUMMARY REGISTER (RMAS) @ 
076634 103 101 116 300: .ASCIZ @CANNOT CLEAR @ 
76 076652 10 101 116 EMS301: .ASCIZ @CANNOT WRITE/READ @ 
77 076675 101 116 131 EMS302: .ASCIZ @ANY DEVICE REGISTER a 
78 076722 127 111 124 EMS303: .ASCIZ @WITHOUT a 
076733 105 122 122 304: .ASCIZ @ERROR 
80 076742 101 040 117 306: .ASCIZ @A ONE FROM @ 
81 076756 125 123 111 EMS307: .ASCIZ @USING MASSBUS INITIALIZE, I.£., @ 
82 077017 101 040 132 EMS310: .ASCIZ @A ZERO FROM @ 
83 077034 105 126 105 EMS311: .ASCIZ @EVERY DEVICE REGISTER BIT POSITION @ 
84 077100 124 110 105 EMS312: .ASCIZ @THE FOLLOWING BITS ARE STUCK @ 
85 077136 101 040 123 EMS313: .ASCIZ @A SHIFTING ONE BIT FROM @ 
86 077167 101 120 120 EMS314: .ASCIZ @APPEARS STUCK AT ZERO @ 
87 077216 101 120 120 EMS315: .ASCIZ @APPEARS STUCK 
88 077244 122 105 107 EMS316: .ASCIZ @REGISTER SELECT @ 
89 077265 061 040 050 EMS317: .ASCIZ @1 (1,2,4,8,16) @ 
90 077305 062 040 050 €EMS320: .ASCIZ (1,2,4,8,16) @ 
91 077325 040 050 EMS321: .ASCIZ (1,2,4,8,16) @ 
92 077345 070 040 050 omsase: ASCIZ @8 (1,2,4,8,16) @ 
93 077365 101 114 114 EMS325: .ASCIZ @ALL ONES FROM @ 
94 077404 101 114 114 EMS324: .ASC1Z L_ZEROS FROM @ 
95 077424 101 124 040 EMS325: .ASCIZ @AT ZERO a 
96 077435 101 124 040 EMS326: .ASCIZ @AT ONE 
97 077445 054 040 117 EMS327: .ASCIZ @, OR@ 
98 077453 015 012 103 EMS330: .ASCIZ <CR><LF>@CS MBA CLRL @ 
077472 103 101 196 EMS331: .ASCIZ @CANNOT READ ZEROS FROM a 
109 077522 111 123 040 EMS332: .ASCIZ @IS INCORRECT @ 
101 077540 111 123 040 EMS333: .ASCIZ @IS NOT SET @ 
102 077554 111 123 040 334: .ASCIZ @IS SET 
103 077564 123 110 117 EMS335: .ASCIZ D NOT BE SET @ 
104 077607 123 110 117 336: .ASCIZ @SHOULD SET a 
105 077626 103 101 116 EMS337: .ASCIZ @CANNOT SET @ 
106 077642 102 105 103 EMS340: .ASCIZ CAUSE 
107 077653 125 123 111 EMS341: .ASCIZ @USING @ 
108 0771 104 125 122 EMS342: .ASCIZ @DURING REGISTER TRANSFER a 
109 077714 125 116 105 EMS343: .ASCIZ MPECTED @ 
110 077730 102 125 123 EMS344: .ASCIZ @BUS TIMEOUT (04 TRAP) @ 
111 077757 102 131 040 EMS345: .ASCIZ @BY REGISTER TRANSFER @ 
112 100005 103 101 116 EMS346: .ASCIZ @CANNOT RESET @ 
113 100023 127 111 124 EMS347: .ASCIZ @WITHOUT SETTING @ 
114 100044 102 125 124 EMS350: .ASCIZ @BUT @ 
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115 100051 127 101 123 EMS351: .ASCIZ @WAS RESET BY @ 

116 100067 127 101 123 EMS352: .ASCIZ @WAS SET BY @ 

117 100103 111 116 040 EMS353: .ASCIZ @IN DIAGNOSTIC MODE @ 

118 100127 111 123 040 €EMS354: .ASCIZ @1S INCORRECT ACCORDING TO a 

119 100162 103 101 116 EMS355: .ASCIZ @CANNOT INCREMENT @ 

120 100204 127 101 123 EMS356: .ASCIZ @WAS NOT SET BY @ 

121 100224 127 101 123 EMS357: .ASCIZ T_RESET BY @ 

122 100246 060 040 124 EMS360: .ASCIZ @0 TO 1 TRANSITION OF @ 

123 100274 061 040 124 EMS361: .ASCIZ @1 TO 0 TRANSITION OF a 

124 100322 111 123 040 EMS362: .ASCIZ @IS INCONSISTENT @ 

125 100343 103 101 116 EMS363: .ASCIZ @CANNOT READ a 

126 100360 124 105 123 EMS364: .ASCIZ @TEST PATTERN IN @ 

127 100401 101 116 104 EMS365: .ASCIZ @AND @ 

128 100406 103 101 116 EMS366: .ASCIZ @CANNOT INITIALIZE a 

129 100431 124 110 105 EMS367: .ASCIZ @THE COMMAND SEQUENCER HAS BEEN CLOCKED a 

130 100501 122 105 123 EMS370: .ASCIZ @RESET EARLY @ 

131 100516 104 111 104 EMS371: .ASCIZ @DID NOT RESET ON TIME a 

132 100545 104 125 122 €EMS372: .ASCIZ @DURING COMMAND EXECUTION a 

133 100577 124 117 040 €EMS3735: .ASCIZ aT0 @ 

134 100603 127 111 124 EMS374: .ASCIZ @WITH ANY COMBINATION OF @ 

135 100634 102 131 040 €EMS375: .ASCIZ @BY READING a 

136 100650 102 131 040 EMS376: .ASCIZ @BY WRITING a 

137 100664 127 101 123 EMS377: .ASCIZ @WAS SET @ 

138 100675 127 101 123 EMS400: .ASCIZ @WAS NOT SET @ 

139 100712 104 111 104 EMS401: .ASCIZ @DID NOT SET @ 

140 100727 127 110 111 EMS402: .ASCIZ @WHILE @ 

141 100736 103 117 115 EMS403: .ASCIZ @COMMAND SEQUENCER DID NOT ABORT @ 

142 100777 127 101 123 EMS404: .ASCIZ @WAS NOT RESET @ 

143 101016 104 125 122 EMS405: .ASCIZ @DURING a 

144 101026 127 101 123 EMS406: .ASCIZ @WAS RESET @ 

iad 101041 123 105 101 EMS407: .ASCIZ @SEARCH TIMEOUT @ 

147 101061 011 104 105 EMSS5OO: .ASCII @ DEVICE IS NON-EXISTENT ,@<CR><LF > 

148 101113 011 104 105 ASCII a DEVICE IS SWITCHED TO OTHER PORT@<CR><LF> 
149 101156 011 124 122 -ASCIZ @ TRANSCEIVER ENABLE SWITCH IS OF Fa@<CR><LF> 
150 101222 011 111 106 EMS501: .ASCIZ @ IF MODULE, M7686,a<CR><LF> 

151 101247 011 115 101 EMS502: .ASCIZ @ MASSBUS TRANSCEIVER, M5922 OR M5923 @<CR><LF > 
152 101317 011 103 123 EMSSO3: .ASCIZ @ CS MODULE, M7684 ,a@<CR><LF> 

153 101344 011 104 123 504: .ASCIZ @ DS . 5/M7685 ,@<CR><LF > 

154 101377 011 104 105 EMS505: .ASCIZ @ DEVICE IS SWITCHED TO A/B PORT POSITION@<CR><LF> 
155 101452 011 104 105 506: .ASCIZ @ DEVICE IS NOT _AN RMO5S/3/2, OR@<CR><LF> 

156 101513 011 104 105 EMS507: .ASCIZ @ DEVICE IS SWITCHED TO PROGRAMMABLE PORT POSITION, OR@<CR><LF> 
157 101603 011 101 123 EMS510: .ASCIZ @ ASSUMING THE RH CONTROLLER HAS NO FAULT@<CR><LF> 
158 101656 015 012 011 €MS511: .ASCII <CR><LF>@ PROBABLE FAULT (S) :@<CR><LF> 
++ 4 101705 011 050 116 -ASCIZ @ (NOT INCLUDING CABLES OR CONNECTORS) @<CR><LF> 
161 101755 122 105 101 EMS600: .ASCIZ @READ IN PRESET COMMAND @ 

142 102005 117 106 106 EMS601: .ASCIZ @OFFSET COMMAND a 

163 102025 122 105 124 EMS602: .ASCIZ @RETURN TO CENTER CENTER COMMAND @ 

164 102066 122 105 114 EMS603: .ASCIZ @RELEASE COMMAND @ 

165 102107 122 105 103 €MS604: .ASCIZ @RECALIBRATE COMMAND @ 

166 102134 123 105 105 EMS605: .ASCIZ @SEEK COMMAND @ 

167 102152 123 105 101 EMS606: .ASCIZ @SEARCH COMMAND @ 

18 102172 104 101 124 EMS607: .ASCIZ @DATA COMMAND @ 
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1 102210 105 130 120 EH: eASCI] @EXPCTD RECEVD REGSTRA@<CRLF> 
2 102237 123 124 101 eASCIZ @STATUS STATUS ADRESS@ 
3 102266 040 102 101 EHe: -ASCII @ BASE@<CRLF> 
4 102274 101 104 122 EHS: -ASCI1Z sa 
5 102303 105 130 120 EHS: eASCII @EXPCTD —_STUCK@<CRLF> 
6 102322 122 105 123 eASCIZ @RESULT BIT(S)a 
7 102341 105 130 120 EH7: -ASCIZ @EXPCTD RECEVDa 
8 102360 123 116 107 EHS7: .ASCII @SNGPRT DULPRT RECEVD DRVTYPa<CRLF> 
9 102417 104 e6 126 -ASCIZ @DRVTYP DRVTYP DRVTYP REGADRA@ 
0 102456 105 13 120 EH65: .ASCII @EXPCTD RECEVD TEST@<CRLF> 
1 102503 123 124 101 ASCIZ @STATUS STATUS REGSTR@ 
2 102532 105 130 120 EH71: ASCII @EXPCTD RECEVD _TEST@<CRLF> 
3 102560 123 124 101 eASCIZ @STATUS STATUS PATTRNA@ 
4 102607 105 130 120 EH115: .ASCI] @EXPCTD RECEVD REGSTR _TEST@<CRLF> 
5 102645 123 124 101 *ASCIZ @STATUS STATUS ADRESS PATTRNA@ 
6 102704 105 130 120 EH130: .ASCII @EXPCTD RECEVD REGSTR TEST OFFSET@<CRLF> 
7 102753 123 124 101 eASCIZ @STATUS STATUS ADRESS PATTRN REGSTR@ 
8 103022 105 130 120 EH132: .ASCII @EXPCTD ACTUAL REGSTR OFFSET@<CRLF> 
9 103061 103 117 125 -ASCIZ @COUNT COUNT ADRESS REGSTRA@ 
103120 105 130 120 EH142: .ASCII @EXPCTD RECEVD REGSTR OFFSET@<CRLF> 
103157 123 124 101 eASCIZ @STATUS STATUS ADRESS REGSTRA@ 
103216 105 130 120 €H145: .ASCII @EXPCTD ACTUAL REGSTR RMER1 RMER2@<CRLF> 
32 103 115 120 -ASCIZ @CMPERR CMPERR ADRESS PATTRN PATTRNA@ 
103333 105 130 120 €H150: .ASCII @EXPCTD ACTUAL REGSTR FUNCT ION@<CRLF> 
103373 122 105 123 -ASCIZ @RESULT RESULT ADRESS CODE@ 
03431 105 130 120 EH213: .ASCII @EXPCTD ACTUAL STATUS _TEST@<CRLF> 
103467 122 105 123 ‘ .ASCIZ @RESULT RESULT ADRESS REGSTRA 
29 103526 101 103 124 EH220: .ASCII @ACTUAL REGSTR@<CRLF> 
103545 122 105 123 Even -ASCIZ @RESULT ADRESS@ 


32 


_ 
oO 
$ 
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1 103564 001140 
2 103574 001136 
3 103600 001140 
4 103606 001174 
5 103620 001140 
6 103630 001140 
7 103640 001140 
8 103652 001140 
16 103666 001142 
11 103672 000 
12 103675 000 
13 103676 000 
14 103700 000 
15 103704 000 
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001136 


$GDDAT , SBDDAT , SBDADR,,0 
$BDADR 


SGDDAT, 
$GDDAT , $8D 
SBDDAT , $BDADR 


DAT ,SBDADR,$TMPO,$TMP1,0 
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1 103712 BUFFER: 
2 gay BUFONE: .BLKW 258. 
? 104716 BUFTWO: .BLKW 258. 
Z 103712 . =BUFFER 
7 103712 HELP: 
8 103712 200 ASCII peng 
9 103713 200 eASCII <CRL 
10 103714 114 111 123. .ASCII aList oF TESTS@<CRLF > 
11 103732 055 055 055 ASCII Qeeeeeoo------ <CRLF> 
12 103750 124 061 011 .ASCII ati TRANSFER_TEST@<CRLF> 
13 103771 124 062 011 .ASCII aT2 CTOD TEST@<CRLF> 
14 104006 124 063 011 .ASCII aT3 MASSBUS INITIALIZE TEST@<CRLF> 
15 104041 124 064 011 .ASCII aT4 CLEAR STUCK ACTIVE TEST@<CRLF> 
16 104074 124 065 011 .ASCII ats TRISTATE TRANSFER TEST@<CRLF> 
17 104126 124 066 011 .ASCI1 aT6 REGISTER SELECT TEST@<CRLF> 
18 104156 124 067 011 .ASCII aT? DRIVE TYPE TEST@<CRLF> 
19 104201 124 061 060 .ASCII aT10 DEVICE AVAILABLE TEST@<CRLF> 
20 104233 124 061 061 .ASCII a1] HOLDING REGISTER TRANSFER TEST@<CRLF> 
21 104276 124 061 062 .ASCII aTi2 CONTROL STATUS #1 TRANSFER TEST@<CRLF> 
22 104342 124 061 063 .ASCII aT13 ERROR REGISTER #1 TRANSFER TEST@<CRLF> 
23 104406 124 061 064 .ASCII aT14 CLEAR OFFSET STUCK ACTIVE TEST@<CRLF> 
24 104451 124 061 065 .ASCII aT15 OFFSET REGISTER TRANSFER TEST@<CRLF> 
25 104513 124 061 066 .ASCII aT16 ERROR REGISTER #2 TRANSFER TEST@<CRLF> 
26 104557 124 061 067 .ASCII aTi7 SERIAL NUMBER TEST@<CRLF> 
27 1 124 062 060 .ASCII aT20 CONTROL BUS PARITY DETECTION TEST@<CRLF > 
28 104654 124 062 061 .ASCII at2i CONTROL BUS PARITY ay Ag TEST@<CRLF> 
29 104723 124 062 062 .ASCII aT22 RMDA,RMDC FAULT TESTax< 
30 104754 124 062 063 .ASCII at23 DISK ADDRESS TRANSFER TESTa<CRLF> 
31 105013 124 062 064 .ASCII aT24 DESIRED CYLINDER TRANSFER TEST@<CRLF> 
32 105056 124 062 065 .ASCII ates ILLEGAL REGISTER TEST@<CRLF> 
33 105110 124 062 ASCII aT26 RESET GO BY INIT TEST@<CRLF> 
34 105142 124 062 067 .ASCII aT27 DIAGNOSTIC — TEST@<CRLF > 
35 105173 124 063 -ASCII aT30 MOL _TEST@<CRL 
105210 124 063 061 .ASCII aT31 WRITE LOCK TESTA<CRLF> 
37 105234 124 063 062 .ASCII aT32 DRIVE FAULT TEST@<CRLF> 
05261 124 063 063 .ASCII a133 SEEK_ERROR TEST@<CRLF> 
39 105305 124 063 064 .ASCII aT PIP TEST@<CRLF 
40 105322 124 063 065 .ASCII aT35 BL_TEST@<CRLF> 
41 105337 124 063 066 .ASCII aT T SECT LAST ry TESTa<CRLF> 
42 105400 124 063 067 .ASCII aT37 RMDA COUNT TEST 
43 105424 124 064 060 .ASCII aT40 RMDC_COUNT TESTaccRLF> 
44 105450 124 064 061 .ASCII aT41 LBT TEST@<CRLr> 
45 105465 124 064 062 .ASCII aT4 COMPOSITE ERROR Ly  eeataaate 
105516 124 064 063 .ASCII a4 WRITE GO TEST@<CRL 
47 105540 124 064 064 .ASCII a144 BRANCH MULTIPLEXOR TESTacCRLF> 
48 105574 124 064 065 .ASCII aT45 SET/RESET GO TEST@<CRLF> 
49 105622 124 064 066 .ASCII a146 END 1 RESET GO Test SCmLe® 
50 10006 124 064 067 .ASCII aT47 SET PULSE TEST@<CRLF> 
51 10567 124 065 060 .ASCII a150 SET/RESET IVC TESTOCCALF> 
52 105724 124 065 061 .ASCII aT51 SET LSC _TEST sy LF> 
53 105745 124 065 bes ASCII aT5 DECODE TEST@<CRLF> 
54 105765 124 065 063 .ASCII aT5 SET/RESET VOLUME VAL ID Tesvectauy> 
55 106025 124 065 064 .ASCII a154 ILLEGAL FUNCTION FESTectnt 
56 106057 124 065 065 .ASCIJ aT55 OCCUPIED TESTa@<CRLF 
57 106101 124 065 066 .ASCII a156 READ IN PRESET TESTA<CRLF> 





SEQ 0267 
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ERROR MESSAGE STRINGS SEQ 0268 


@7100 PORT REQUEST TEST, PART 3a<CRLF> 
@7101 RELEASE TEST@<CRLF> 

a710 WRITE ATA TEST@<CRLF> 

a710 RESET ATA BY GO TEST@<CRLF> 


58 106131 124 065 ASCII aT57 RIP/RMOF TEST@<CRLF> 
59 106153 124 066 ASCII = aT60 erent timate TEST@<CRLF> 
60 106202 124 066 -ASCII a6! OFFSET COMMAND TEST@<CRLF> 
61 106232 124 066 ASCII aT6 RETURN TO CENTER TEST@<CRLF> 
106264 124 066 ASCII a6 RMDC CLEAR OFFSET TEST@<CRLF> 
63 106317 124 066 -ASCII a164 EBL CLEAR OFFSET TEST@<CRLF> 
| €4 106351 124 066 eASCII. = aT65 GO TEST@<CRLF> 
65 106375 124 066 -ASCII aT66 SET IAE TEST@<CRLF> 
106416 124 066 -ASCII aT67 SEARCH, SEEK, READ, WRITE 2) ated 
’ 106461 124 067 -ASCII aT70 INVALID TRACK/SECTOR TEST@<CRL 
2% 106517 124 067 eASCII. aT71 INVALID CYLINDER Staats 
| 69 106551 124 067 ASCII aT7 SET AOE TEST@<CRL 
70 106572 124 067 ASCII aT? RMR_TEST > 
71 106613 124 067 ASCII aT74 PGM STATUS CHECK@<CRLF> 
72 106640 124 067 eASCII aT75 DVA/DPR STATUS CHECK@<CRLF > 
73 106671 124 067 ASCII. aT76 QUEST TEST, PART 1a<CRLF> 
74 106727 124 067 ° et at77 PORT REQUEST TEST, PART 2a<CRLF> 
CI 
CI 
CI 
CI 
CI 
I 
I 
I 
I 
I 


067 
060 
061 
06 

"% 

065 
067 
061 
062 
063 
065 
067 
060 

107046 124 061 060 .AS 

060 
060 
060 
060 
060 
061 
061 
061 
061 
061 
06 

061 
061 





I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

I 

st 

79 107124 124 061 SCII @1104 UNIT READY ATA Li ali 
80 107155 124 061 ~ASCII @7105 ERROR ATA TEST@<CRL 
81 107201 124 061 eASCII @7106 REGISTER TRANSFER ATA TEST@<CRLF> 
82 107241 124 061 eASCII @1107 P SET ATA _TEST@<CRLF> 
83 107265 124 061 eASCII aT110 ET WLE TEST@<CRLF> 
& 1 7 124 061 eASCII @T111 EXCEPTION TEST@<CRLF> 
85 107333 124 061 eASCII @7112 RECALIBRATE TEST@<CRLF> 
86 1 1 124 061 eASCII @7113 SEEK TEST@<CRLF> 
87 107400 124 061 eASCII @7114 SEARCH TEST@<CRLF> 
88 107421 124 061 eASCII. @7115 tw: TIMEOUT TEST@<CRLF> 
89 107452 124 061 eASCII @1116 DATA COMMAND TESTS (1)a<CRLF> 
90 107506 124 061 eASCII. @T117 DATA COMMAND TESTS (2)a<CRLF> 
91 107542 124 061 062 .ASCII @1120 DATA COMMAND TESTS (3)a<CRLF> 
92 107576 200 eASCII <CRLF> 
93 107577 117 120 105 .ASCII @OPERATIONAL SWITCH SETTINGS@<CRLF> 
94 107633 055 055 055 .ASCII saneussesonsesesserer=§<(A f> 
95 107667 123 127 111 .ASCII = @SWITCH USE@<CRLF > 
96 107704 055 055 055 .ASCII @------ o ~a<CRLF > 
97 107741 040 040 061 .ASCII @ 15 HALT ON ps eee yh 
98 107765 040 040 061 .ASCII @ 14 LOOP ON TEST@<CRLF> 
99 110010 040 040 061 .ASCII @ 13 ent ay H ERROR TYPEOUTS@<CRLF > 
100 110045 040 040 061 .ASCII @ 12 LF> 
101 110054 040 040 061 .ASCII @ 11 este een 
102 110105 040 040 061 .ASCII @ 10 BELL ON ERRORAa< 
103 110131 040 040 040 .ASCII @ 9 LOOP ON ERROR@< CRLF> 
104 110155 040 040 040 .ASCI] @ 8 LOOP ON rest IN SWR<7:0>@<CRLF > 
105 110214 040 040 040 .ASCII @ 7 ™N128a<CRLF 
106 110230 040 040 040 .ASCII @ 6 INOSOCCRLFD 
107 110243 040 040 040 .ASCI] @ 5 TN32@<CRLF > 
108 110256 040 040 040 .ASCI] @ 4 TN16@<CRLF > 
109 110271 040 040 040 .ASCI] @ 3 TN8@<CRLF > 
110 110305 040 040 040 .ASCII @ 2 TN4@<CRLF > 
111 110315 040 040 040 .ASCI] @ 1 TN2@<CRLF > 
\1¢ 110327 040 040 040 .ASCIZ @ 0 TN1@<CRLF > 
114 000200 - END 200 
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Ss E SEQ 0269 
ABASE = 176700 AVECTI= 120254 CNSLO1 062267 ED220 103666 EMS12 072301 
ACDW1 = 000000 AVECT2= 000000 CNSLO2 062305 ED5 103600 EMS13. 072357 
ACDW2 = 000000 Al6é == 000400 CNSLOS 062347 EDS7 103606 MS14 072426 
ACPUOP= 000000 A17__ = 001000 CNSLO4 062367 ED65 103620 EMS15 072473 
ADDWO = 000000 BADTMO 004546 CNSLOS 062423 ED71 103630 EMS16 072551 
ADDW1 = 000000 BAI = 000010 SL 062435 EECC = 000020 EMS17 072632 
ADDW10= 000000 BB00 = 000001 CNSLO? 062466 EFT1 071514 MS2 071613 
ADDW11= 000000 BBO1 = 000002 CNSLO8 062631 EFT115 071532 EMS20 072673 
ADDW12= 000000 BB02 = 000004 CNSLO9 062632 EFT130 071534 EMS21 072737 
ADDW13= 000000 8803 = 000010 CNTCLR 055614 EFT132 071536 EMS22 073016 
ADDW14= 000000 BB04 = 000020 COMMA = 062145 EFT2 071516 EMS23 
ADDW15= 000000 BB05 = 000040 CONT = 000100 EFT220 071540 EMS24 073141 
ADDW2 = 000000 BB = 000100 CR = 000015 EFTS 071520 EMS25 73220 
ADDWS = 000000 BB07 = 000200 CRLF = 000200 EFTS 071522 EMS250 076122 
ADDW4 = 000000 BB08 = 000400 CYLMSK= 001777 EFT65 071524 EMS251 076160 
ADDWS = 000000 BB09 = 001000 DBCK = 100000 EFT71 071526 EMS252 076224 
ADDW6 = 000000 BITO = 000001 DBEN = 040000 EFT74 071530 EMS253 076257 
ADDW7 = 000000 BITOO = 000001 DBL = 002000 EFI 103672 EMS254 076312 
ADDW8 = 000000 BITO1 = 000002 DCK = 100000 EF130 103704 EMS255 076355 
ADDW9 = 000000 BITO2 = 000004 DDISP = 177570 F2 103675 EMS256 07 
ADEVCT= 000000 BITOS = 000010 EBL = 020000 EF5 103676 EMS257 0 
ADEVM = 000000 BIT04 = 000020 DISPLA 001156 EF57 103700 EMS 73276 
ADR = 000001 BITOS = 000040 DISPRE 000174 HT1 66 E 076501 
AENV. = 000000 BITO6 = 000100 DLT = 100000 EHT115 071426 EMS261 076532 
AENVM = 000000 BITO7 = 000200 DMD = 1 HT130 071432 EMS262 076571 
AFATAL= 000000 BITO8 =' 00 DPE = 000010 EHT132 071436 EMS27 073355 
ALL 062134 BITO9 = 001000 DPEHI = 040000 EHT142 071442 EMS3 
1= 000000 BIT? = 000002 DPELO = 020000 HT145 071446 MS30_ 073421 
AMADR2= 000000 BIT10 = 002000 DPR = 00 EHT150 071452 EMS300 0766 
AMADR3= 000000 BIT11 = 004000 DRQ = 000 071372 MS301 076652 
= 000000 BIT12 = 010000 DRVCLR= 000010 EHT213 071456 EMS302 66 
AMAMS1= 000000 B1T13 = 020000 DRY = 000200 EHT220 071462 EMS303 076722 
AMAMS2= 000000 BIT14 = 040000 DSWR = 177570 071376 EMS304 73 
= 000000 BIT15 = 100000 DTE =0 EHT57 071406 EMS306 076742 
AMAMS4= 000000 BIT2 = 000004 DTO = EHT65 071412 EMS307 076756 
000000 BITS = 000010 DULPRT= 024024 EHT7 071402 EMS31 50 
AMSGLG= 000000 BIT4 = 000020 DVA = EHT71 071416 EMS310 077017 
AMSGTY= 000000 BITS = 000040 DvC = 000200 EHT74 071422 EMS311 0770 
AMTYP1= 000000 BIT6 = 000100 EBL = 020000 H 102210 EMS312 077100 
AMTYP2= 000000 IT? = 000200 ECH = 000100 EH115 102607 EMS315 077136 
AMTYP3= 000000 BIT8 = 000400 ECI_ = 004000 EH130 102704 EMS314 077167 
AMTYP4= 000000 IT9 = 001000 ECRC = 001000 EH132 193066 EMS315 077216 
AOE = 001000 BOT. 054672 EDT1 071466 EH14 103120 EMS316 077244 
APASS = 000000 BOTFLG 054674 EDT115 071504 EH14 103216 EMS317 077265 
APE = PBPTVEC= EDT130 071506 EH150 103333 EMS32. 073552 
APRIOR= 000000 BSE = 100000 EDT132 071510 EH2 102266 EMS320 077 
APTCSU= 000040 BUFFER 103712 ~ €DT2 071470 EH213 = 103431 EMS321 077325 
APTENV= 000001 BUFONE 103712 EDT220 07151 EH220 103526 EMS322 077 
APTSIZ= 000200 BUFTWO 104716 EDTS 07147 EH Sens EMS3235 077365 
APTSPO= 000100 cc = 004000 EDT57 71474 EHS 102303 EMS324 077404 
CH = 002000 EDT65 071476 EH57 102360 EMS325 077424 
=1 CHRCNT 054675 EDT71 71500 EH65 102456 326 077435 
ATESTN= 000000 CKSWR = 104410 EDT74 071502 EH? 102341 EMS327 077445 
ATNMSK= 000377 CLOCK 001532 ED1 103564 EH71 102532 3 07363 
ATNTBL 063052 CLR = ED115 103640 EMS1 071542 MS 07745 
T = 000000 CMNSTA 007! ED130 103652 EMS10 072145 EMS331 077472 
= 000000 CNSLOO 0622 ED2 103574 EMS11 072210 EMS332 077522 





CZRMPAQ_RMOS/3/2 DSKLS TST 1 
SYMBOL TABLE 


EMS333 077540 EMS47 
MS 077554 MS 
EMS335 077564 EMS5O 
336 077607 
EMS337 077626 EMS501 
073662 MS 
EMS340 077642 EMS503 
341 077653 EMS504 
342 077662 EMS505 
EMS345 077714 EMS506 
0 EMS507 
EMS345 077757 EMS51 
46 1 5 EMS510 
EMS347 100023 EMS511 
35. 073711 EMSS2 
EMS350 100044 EMS5S3 
EMS351 100051 EMS54 
EMS352 100067 EMS55 
EMS353 100103 EMS56 
354 100127 EMS57 
EMS355 100162 EMS6 
EMS356 EMS60 
EMS357 100224 EMS600 
073753 EMS601 
100246 EMS602 
EMS361 100274 EMS603 
EMS362 100322 EMS604 
EMS363 100343 EMS605 
EMS364 100360 EMS 
EMS365 100401 EMS607 
366 100406 EMS61 
EMS367 100431 EMS 
EMS37 074003 EMS 
EMS370 100501 EMS64 
371 100516 EMS65 
EMS372 100545 EMS66 
3 100577 EMS67 
EMS374 100603 EMS7 
100634 EMS70 
EMS376 100650 EMTVEC= 
100664 EMT1 
EMS4 071727 EMT10 
EMS4O 074035 EMT1 
EMS400 100675 EMT101 
EMS401 100712 EMT102 
EMS402 100727 EMT103 
EMS403 100736 EMT104 
EMS404 100777 EMT105 
EMS405 101016 EMT1 
EMS406 101026 EMT107 
EMS407 101041 EMT11 
EMS41 = 074113 EMT110 
EMS4 074161 EMT111 
EMS4 074243 EMT1 \¢ 
EMS44 07431 EMT11 
EMS45 074355 EMT114 
074 EMT115 


M5 
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074514 EMT116 065676 EMT 
071760 EMT117 065716 EMT200 
074554 sales 063732 EMT201 
101061 EMT120 065736 EMT20 
101222 EMT121 065762 EMT20 
101 $35 EMT122 066002 EMT204 
101317 EMT123 066022 EMT205 
101344 EMT124 066046 EMT 
101377 EMT125 066 EMT 207 
101452 EMT126 066104 EMT 
101513 EMT127 066122 EMT210 
074623 T13_ 063750 © EMT211 
101603 EMT130 066146 EMT212 
101656 EMT131 066164 EMT 213 
074672 EMT132 066202 EMT214 
074735 EMT133 066222 EMT215 
074774 EMT13% 066242 EMT216 
075051 EMT135 066256 EMT217 
075127 EMT1 066274 
075222 EMT137 066306 EMT220 
072030 EMT14 063766 EMT 221 
EMT140 066324 EMT222 
101755 EMT141 066344 MT223 
102005 EMT14 EMT224 
102025 MT143 066376 MT225 
EMT144 066412 EMT22 
102107 EMT145 066434 MT22 
34 EMT146 066456 EMT 
102152 EMT147 066474 30 
102172 MT15 064 EMT231 
EMT150 066506 EMT 23, 
075433 MT151 066530 EMT 25. 
075514 EMT152 066542 EMT 234 
75554 EMT153 066556 EMT235 
075624 EMT154 066576 236 
665 EMT155 066616 EMT 237 
075742 EMT156 066634 
72074 EMT157 066656 EMT240 
54 EMT16 064022 EMT241 
EMT160 066674 EMT24 
063510 EMT161 066724 EMT24 
7 EMT1 066742 EMT244 
B62315 EMT1 066760 EMT245 
533 164 067002 EMT 246 
5352 EMT165 067024 EMT247 
065372 alas 067050 EMT25 
065416 EMT167 067070 EMT250 
065436 T17 040 EMT251 
065456 EMT170 067112 EMT25 
065502 EMT171 067124 EMT25 
EMT172 067140 EMT 254 
065522 EMT173 067156 EMT255 
Reeee? EMT174 7 EMT25 
EMT175 7226 EMT25 
5 EMT176 067244 
065630 EMT177 067262 EMT260 


065652 EMT2 063516 EMT261 


064056 
067300 


70656 
70674 
206 
070720 


070744 


SEQ 0270 


EMT276 071262 
all 071300 
EMT 063544 
EMT30 252 
EMT 071324 
EMT301 071350 
EMT31 064266 
EMT32 064302 
EMT33 064316 
MT 064334 
EMT35 064352 
al 064 
EMT37 064402 
EMT4 063564 
EMT40 064416 
EMT41 0644 
EMT42 064452 
EMT43 064476 
064510 
EMT45 064524 
EMT46 064540 
EMT47 064554 
EMTS 06 
EMTSO 064576 
EMTS1 064 
EMTS 064640 
EMTS 064654 
EMT54 064670 
EMT55 064710 
EMT56 §=— 0647 
EMTS? 064744 
MT6 063632 
EMT60 064760 
EMT61 064774 
EMT 065014 
EMT 065034 
EMT64 065050 
EMT65 065 
EMT66 065076 
EMT6? 065112 
EMT? 063654 
EMT70 065130 
EMT71 065150 
EMT72 065174 
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ILR_ = NOTAVL eters RMAS_ = 000016 
EMT74 065240 ILRGSO= 000050 06271 RMASI 001350 
EMT75 065250 “ILRGS2= 000052 = 100000 RMASO 3 001424 
E ILRG54= 000054 occ §== 100000 RMBA_ = 00 
EMT77_ 065276 ILRGS56= 000956 = 000200 RMBAE = 000050 
063510 ILRG60= 000060 OFFSET= 000014 RMBAEI 001402 
E ILRG62= 000062 = 00000 RMBAEO 001456 
= ILRG64= 000064 ONES 063122 RMBAI 001336 
ERRNMB = 054670 = 000066 OPE = 020000 RMBAO 3 001412 
ERROR = 104000 ILRG70= 000070 I = 020 RMCS1 = 000000 
ERRTYP 054046 ILRG72= 000072 OR = 000200 RMCS1I 001332 
ERRVEC= 000004 ILRG74= 000074 PACACK= 000022 RMCS10 001406 
ERTYOO 054676 ILRG76= 000076 PAKACK= 000022 RMCS2 = 
ERTYO1 054704 IOTVEC= 000020 = 0000 RMCS2I 001342 
ERTYO2 054714 IPCKO = 1 PAT = 000020 RMCS20 001416 
ERTYOS 054723 IPCK1 = 000002 PCLOCK 055220 RMCS3_= 000052 
ERTYO4 054731 IPCK2 = 00000 PCOUNT 055306 RMCS3I1 001404 
ERTYOS 054734 IPCK3 = 000010 DA = 000400 RMCS30 001460 
SRC = 004000 IR = 0001 PGE = 002000 , RMDA_ = 000006 
E = 000020 Ive = 01 PGM = 001000 RMDAI 001340 
FMT16 = 010000 LBC §~== 002000 PHA = 000200 RMDAO 3 001414 
FNCDTB 062752 LBT = 002000 PIP = 020 RMDB = 
FN = 00007 LCLOCK 055236 PIRQ = 177772 RMDBI 001354 
FO = 000002 LCOUNT 055306 PIRQVE= 000240 RMDBO 001430 
Fl = LF = 000012 PLCLK 055244 RMDC = 000034 
F2 = 000010 LODEV 062675 PLFS_ = 002000 RMDCI 001366 
F3 = LS = PLSTP 055354 RMDCO } 001442 
F4 s LSC = 004000 PRO = 000000 RMDS = 000012 
GETBUF 001332 LST = 00000 PR1 = 000040 RMD 001344 
GO = LSTOP 055350 PR2 = 000100 RMDSO 001420 
GT = 104407 LSTRK 00133 PRS = 000140 RMDT = 26 
HCE = 000 MCLK = 004 PR4 = 000200 RMDTI 001360 
HCI = 002000 MCPE = 02 PRS = 000240 RMDTO 001434 
HCRC = 000400 MDF = 000100 PR6 = 000300 RMEC1 = 4 
HELP 103712 MDPE = 000400 PR7 = 000340 RMEC1I 001376 
= 000011 I = PS = 177776 RMECIO 001452 
IAE = 002000 MIXED 063062 PSEL_ = 002000 RMEC2 = 000046 
IDXMSK= 000077 moc = 000400 PSTOP 055342 RMEC2I 001400 
IE = 000100 MOH = 020000 PSW = = 177776 RMEC20 001454 
LF == 000007 muL = 010000 PUTBUF 001406 RMER1 = 000014 
ILFO2 = 000002 MRD = PWRVEC= 000024 RMER1I 001346 
ILF24 = 000024 MRIAAA= 051401 QUES 062141 RMER1O0 001422 
ILF26 = 000026 MS = = 000070 one = 
ILF30 = 000030 MSC = RDCHR = 104411 RMER2I 001374 
ILF32 = 000032 MSDRVS 06265 RDLIN = 104412 RMER2O 001450 
ILF34 = 000034 MSE =1 RDOCT = 104413 RMHR = 
ILF36 = 000036 MSER_ = 000200 RD = 000200 RMHRI 001370 
ILF40 = 000040 MSGDRV 062667 READY 007152 RMHRO 001444 
ILF42 = 000042 MSHELP 062150 RECAL = 000006 RMLA_ = 000020 
ILF44 = 000044 MUR = 000 RESREG= 104415 RMLAI 001352 
F46 = 000046 MWD = 000010 RESVEC= 000010 RMLAO = 001426 
ILF54 = 000054 MWP = 10 xX = 010000 RMMR1 = Boeee 
ILF56 = 000056 MXF = 001000 = 040000 RMPRII 001356 
ILF64 = 000064 NDTMSK= 115760 RGDTPT 063062 RMMRI0 001432 
ILF66 = 000066 NED = 010000 = 000072 aos = 000040 
ILF74 = 000074 NEM = 004000 RIP = 000020 RMMR2I 001372 
ILF76 = 000076 NOP = RLEASE= 000012 RMMR20 001446 


RMOF = 
RMOFI 001364 
RMOFO 001440 
RMR = 000004 
RMSN = 000030 
RMSNI 001362 
RMSNO 001436 
RMWC = 2 
RMWCI 001334 
RMWCO 001410 
RQA =- 100000 
RB = 040000 
RTC = 000016 
R6 =%000006 
R7 _ =%000007 
SADMSK= 000377 
SAVREG= 104414 
SA1_ = 000001 
SA16 = 000020 
SA2 = 000002 
SA4 = 000004 
SA8 = 000010 
SC = 100000 
SCOPE = 09 
SCIMSK= 0037" 
SCO = 0001 
SC1 = 000200 
SC2 


K = 000004 
SETOM 055512 
SETVV 055370 


SHUT 055642 
: ; ZCLK 054760 


I = 

T= 020024 
STACK = 001100 
STANDA 006074 
START 004626 
STKLMT= 177774 
STOP 001534 
SWR 001154 
SWREG 000176 
SwO = 000001 
SwOO = 000001 
Sw01 = 000002 
SwO2 = 000004 
SwOS = 000010 
SWO4 = 000020 
SwOS = 000040 
Sw06 = 000100 
SwO7 = 000200 
SWwO8 = 000400 
SwO9 = 001000 
Swi = 000002 


SEQ 0271 | 
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SEQ 0272 
SWi0 = 002000 TST16 §=—014672 TYPDS = 104405 $DDW1 001310 SMAMS1 001252 
SW11 = 004000 TST17 ~=—-:0.15404 TYPE = 104401 $DDW 001312 SMAMS2 001256 
SW1i2 = 010000 TST2 007616 TYPOC = 104402 $DDW 001314 SMAMS$ 001262 
SW13 = 020000 TST20 015506 TYPON = 104404 SDDW4 ot 36 SMAMS4 001266 
SW14 = 040000 TST21 015772 TYPOS = 104403 $DDWS 001320 SMBADR 001102 
Swi5 = 100000 TST22 016110 UBUS@S 062201 DDW6 001322 SMFLG 062126 
SWw2 = 000004 TST23 016236 UNS __ = 040000 $DDW7 001 3$3 SMNEW 061264 
SWS3 = 000010 TST24 016510 UNTMSK= 000007 SDEVCT boig 2 $MS 001236 
SW4 == 000020 TST25 017010 UPE = 020000 DEVM 001300 SMSGLG 001240 
SWS = 000040 TST26 =017432 USE = 040000 SDOAGN 054036 . SMSGTY 001222 
SW6 = 000100 ST27 9017526 = 000001 SDTBL 056264 061253 
SW7 == 000200 TST3 01 U1 = 000002 SENDAD 054026 SMTYP1 001253 
SWB == 000400 TST3O0 020014 U2 = 000004 SENDCT 053672 SMTYP2 001257 
Sw9 = 007000 TST31 020330 = 000100 SENULL 054042 SMTYP3 001263 
TADMSK= 177400 TST32 0206 WATCH 001530 $E 001242 SMTYP4 001267 
TAG = 020000 TST35 = 02.1336 C = 0 SENVM § 001243 SMXCNT 057376 
TAGADR= 001114 TST34 021650 wCD = 000050 $ 053636 001170 
TAP) == 040000 TST35 = 02.2142 wC = SEOPCT 053 SNWTST= 1 
TA1 = 000400 S 022464 WCEHI = 010000 SEOSP 053600 SOCNT 056526 
TAI6 = 010000 TST37? = 023024 WCELO = 004000 SERFLG 001117 SOMODE 056530 
TA2 == 001000 TST4 010150 W = 000040 SERMAX 001131 SOVER 057362 
TAS == 002000 TST40 §=©023500 WCH = 000052 SERROR 057640 SPASS 001230 
TAS _= 004000 TST41 023764 wD = 000060 SERRPC 001132 SPASTM 001 
TBITVE= 000014 TS142 = 024246 WH = 2 SERRTB 001536 SPOWER 061654 
TIME 001526 TST43 024650 WLE = 004000 SERTTL 001126 $PSW 001524 
TKVEC = 000060 TST44 025020 WRL = 004000 SESCAP 001210 SPWRDN 1506 
TPVEC = 000064 TST45 025400 XNUDC = 176000 SET 001242 SPWRMG 061642 
TRAPVE= 000034 TST466 §=026110 XNUER2= 001567 SETEND 001326 SPWRUP 1560 
TRE _= 040000 TST47 26404 = 161577 SFATAL 001224 SQUES 001216 
TRTVEC= 000014 TST5 010300 XSIZ 005 SFFLG 062130 SROCHR 7 
TST _ = 010000 TST5O 027006 XXDP 001326 SFILLC 001172 SROLIN 770 
TSTNMB 054666 TST51 027242 ZEROS 063164 SFILLS 001171 DOCT 061276 
TSTQUE 001462 TST52 027450 SAPTHD 001100 SGDADR 001134 $RDSZ = 10 
TST1 7306 TST53 SATYC 061710 SGDDAT 001140 SRESRE 055746 
TST10. =. 012572 ST54 030554 SATY1 061664 $GET42 054016 054740 
TST100 TST55 6 SATY3 061672 SGTSWR 060426 $RMOS 054745 
TST101 035614 TST56 = 031170 SATY4 061702 $HD_ __= 000000 5 054752 
TST102 TST57 3 SAUTOB 001150 SHIBTS 001100 SRTNAD 054040 
TST103 TST6 $BASE 001276 SHIOCT 061376 SSAVRE 055710 
TST104 036334 TST60 }§=©031544 SBDADR 001136 SICNT 001120 SSAVR6 061652 
TST105 036540 TST61 031762 $B8DDAT 001142 SILLUP 061646 SSCOPE 057066 
TST106 036670 TST 032130 SBELL 001212 SINTAG 001151 SSETUP= 137 
TST107 03 TST 032354 $BIN 056056 SITEMB 001130 SSTUP = 177777 
TST11_ =—.012656 TST64 032470 $CDW1 001302 SLF 001220 SV 057326 
TST110 262 TST6S 032656 $CDW2 001304 SLFLG 062127 SSVPC = 000204 
TST111 037540 TST66 033106 SCHARC 057062 SLLCSR 001516 $SWR = 167400 
TST112 4 TST67 033324 SCKSWR 060536 SLLVEC 001520 SSWREG 001244 
TST113 041436 TST7 012434 SCMTAG 001114 P. 001122 SSWRMK= 
TST114 043164 TST70 =©033552 $C = 000000 S$LPCSB 001510 $SwO8T 057400 
TST115 TST71 034022 $CM4 = 000005 SLPCSR 001506 STESTN 001226 
TST116 045724 TST7 034230 SCNTLC 061234 SLPE 001124 STIMES 001206 
TST117 O TST7. 034520 SCNTLG beises SLPVEC 001512 $TKB 001162 
TST12 =013116 TST74 034746 SCNTLU 061241 SMADR1 001254 STKCNT 060040 
TST120 052372 TST75 =©035054 $ 001250 SMADR2 001 $00 STKINT 060050 
TST13) = 013464 TST76 35200 SCRLF 001217 SMADRS 001264 STKQEN= 060047 
TST14 014246 TST77 =. 035330 SDBLK 056274 SMADRS 001270 STKQIN 060042 
TST1S 014346 TYPBN = 104406 SDDWO 001506 SMAIL 001222 $TKQOU 060044 
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SYMBOL 
STKQSR $™N = 000121 STSTM 001104 $TYPOC 056330 SXOFF = 000023 
$TKS 001160 PB 001166 STSTNM 001116 STYPON 056344 $XON = 000021 
STKSRV 060120 STPFLG 001173 STTYIN 061224 $TYPOS 056304 $XTSTR 057100 
STMPO 001174 STPS 001164 STYPBN 056004 SUNIT 001234 $$GET4= 000000 
STMP1 001176 STRAP 061400 $TYPDS 056060 SUNITM 001710 $$SWO8= 000121 
STMP2 001200 STRAP2 061440 $TYPE 056532 SUSWR 001246 SOFILL 056527 
STMP4 001204 STRPAD 061452 STYPEX 057064 SVECT2 001274 ; 2 

. ABS. 110342 


000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 55280 WORDS ( 216 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 69 PAGES 


STMPS 001202 STRP = 000016 STYPEC 056744 $VECT1 001272 
CZRMPA.BIC,CZRMPA/C=CZRMPA.DOC ,CZRMPA,SYSMAC/M 
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7-391 
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7-130 
7-196 
7-253 
7-325 
7-388 
7-479 
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7-82 
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29-208 
29-228 
29-258 
29- 
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25-114 
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25-154 
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28-174 
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24-349 
24-340 
28-194 
24-367 
28-234 


24-205 
24-64 


7-467 


24-365 


24-345 
24-383 


24-271 
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7-470 
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28-44 
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7-482 25-144 
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24-122 


24-184 
24-116 


24-354 


24-170 


28-778 


24-267 
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24-194 
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28-1104 

24-215 «24-286 3=— 24-303) 28-1114 

24-151 24158 = h4-173 24-180) = 24-215 9 4-282 = 24-284 §=— 24-286 = 24-288 )3=— 24-320) 24-322) 28-1124 
24-155 = 4-170 24=177 = 4-184 24-194 = 28-1134 

24-166 8=— 24-168 = 24-308 = 24-324 9 24-342 9 24-347 = 288-1144 
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EMT104 7-205 24-1514 
EMT105 97-208 }324-1534 
106 7-211 24-1554 
EMT107 7-214 39-24-1584 
EMT11 7-28 24-198 
EMT110 7-217 24-1604 
EMT111 7-220 24-1624 
EMT112) «7-223 24-1644 


EMT122 7-247 = 24-1824 
EMT123 7-250 24-1844 
EMT124 7-253 24-187 
EMT125 7-256 24-1894 
EMT126 §=7=259 39-24-1924 
EMT127 7-262 -1 
EMT13 7-34 24-234 
EMT130 7-265 24-1974 
EMT131 7-268 4-1 
132. 7-271 3924-2014 


7-283 ot 
MT137 867-286 «= 24-2114 
24-254 
MT140 7-289 44-2134 
MT141) = 7-292 h4=2154 
MT142. 7-295 = 24=217# 
MT143 0 7= 24-2198 
144 7-301 24-2214 
MT145 7-304 24-22 
M1146 7-307 24-2254 
M1147 907-310 39. 24-2278 
MT15 7-40 24-278 
MT150 867-313 -2 
MT151 7-316 43624-2314 
MT152 7-319 39 24~-2334 
MT153 7-322 24-235 
MT154 7-325 24-2378 
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EMT156 §=—7=331 24-2418 
EMT157 = 7=334 Sr-se" 


EMT201 7= 24-2824 
EMT202 7-391 24-284 
EMT203 7-394 2864 


MT221 907-436 «= 24-3164 
MT222 «7-439 «= 24-3184 
MT223) 7-442 (h~ 

MT224 «7-445 = 24-3228 
MT225 7-448 3924-3244 


MT236 407-476 «= 24-3428 
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EMT24 7-61 24-444 

EMT240 24-3478 

EMT241 97-485 4-34 

EMT2462 87-488 39-24-3514 

EMT243 7-492 9 24-3544 


B 7-501 4-36 
EMT247 7-504 24-36 
7-64 24-478 


5 

EMTS -9 24 

MT 7-73 24-544 
MT300 7-583 924-41 
MT301 97-586 38924-4214 
MT31 7-76 24-5 
MT32 7-79 24-584 
MT35 7 24 

MT34 7-85 24-624 


MT44 7-109 4-798 
MT45 7-11 24-814 
mM 7-11 4-834 





" SEQ 0310 


ee ee ee ee ck ae oe te, 
E 7-15 24-108 


CZRMPAO RMO5S/3/2 DSKLS TST 1 


CROSS REFERENCE TABLE (CREF VO1-05 ) 


8-19 


12-D98 
14-51 


8-19* 
12-<69* 
19-6* 


12-a91 


12-697 
12-B22 


12-N18 
12-F 26 


8-6 
19-10 


12-E04 
14=55 


8-19* 
12-<70* 
19-6" 


12-c44 


12-726 
12-841 


12-R16 
12-G39 


8-25 
19-10 


12-E20 
14-60 


8-21* 
12-<88* 
19=6* 


12-c49 | 


12-861 


21-554 
12-G67 
8-39 

19-10 
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